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INTRODUCTION 



THE 1400/B3500 TRANSLATOR IS DESIGNED TO TRANSLATE 
PROGRAMS WRITTEN FOR IBM 1400 SERIES SYSTEMS TO B3500 ASSEMBLY 
LANGUAGE PROGRAMS, LANGUAGES ACCEPTABLE AS INPUT TO THE 
TRANSLATOR ARE AUTOCODER, BASIC AUTOCODER, AND SPS, As 
IMPLEMENTED ON THE SYSTEMS 1401, 1440, AND 1460. THE 1400/ 
B3500 TRANSLATOR IS INTENDED TO BE USED AS A TOOL IN MINIMIZING 
THE TIME AND COST OF CONVERTING PROGRAMS FROM 1400 OPERATION TO 
B3500 OPERATION. ALTHOUGH TRANSLATION DOES NOT ELIMINATE ALL 
THE PROBLEMS OF CONVERSION, IT CAN BE USED EFFECTIVELY TO 
SUBSTANTIALLY DIMINISH THE PROBLEMS OF REPROGRAMMING, CODING, 
AND KEYPUNCHING WHICH ACCOMPANY MANUAL TRANSLATION. THE TOTAL 
AMOUNT OF TIME REQUIRED TO CONVERT A PROGRAM FROM THE 1400 TO 
THE B3500 USING THIS TRANSLATOR DEPENDS ON PROGRAMMING 
TECHNIQUES EMPLOYED BY THE 1400 PROGRAMMER. 



THE MINIMUM SYSTEM CONFIGURATION REQUIRED FOR USING THE 
1400/B3500 TRANSLATOR IS AS FOLLOWS: 



A, 



CORE 



25,000 CHARACTERS 
PLUS MCP REQUIREMENTS, 



DISK OR 
SYSTEMS MEMORY 



THE AREA REQUIRED IS DEPENDENT 

UPON SIZE OF THE INPUT DECK AND 

THE TYPE OF LANGUAGE, THESE ARE 

THE VARIABLES! 

300 SEGMENTS INITIALLY 

THE WORK FILE IS BLOCKED 1000 

1* 1 SEGMENT PER SPS STATEMENT 

2, 2 SEGMENTS PER AUTOCODER 

STATEMENT, 

SYMDIN REQUESTED, 

It 1 SEGMENT PER ASSEMBLER 

STATEMENT. 



CARD READER 



1 FOR CONTROL CARD AND SPEC 
CARD INPUT--ALSO FOR SOURCE 
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PROGRAM INPUT IF ON CARDS, 

D. PRINTER 1 FOR LISTING, 

E. MAGNETIC TAPE 1 FOR INPUT IF 

SOURCE PROGRAM ON TAPE, 
1 FOR OUTPUT IF SYMBOLIC 
OUTPUT TAPE REQUESTED, 

F. CARD PUNCH 1 FOR OUTPUT IF SYMBOLIC 

CARD DECK REQUESTED. 



THE SOFTWARE ENVIRONMENT REQUIRES AN MCP, IN ADDITION 
THE B35O0 ADVANCE ASSEMBLER MAY BE REQUESTED DURING A 
TRANSLATION. THESE PROGRAMS ARE MAINTAINED ON THE STANDARD 

8-idnn cwerruc TAUT 
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SECTION 1 TRANSLATOR FEATURES 
1-1. GENERAL! 

FEATURESl 

A, ACCEPT AS INPUT EITHER AUTOCODER, BASIC 
AUTOCODER, OR SPS SOURCE PROGRAMS, 

B, SOURCE PROGRAM MAY BE READ IN FROM CARD READER 
OR MAGNETIC TAPE, 

C, SOURCE PROGRAMS MAY BE STACKED ON MAGNETIC TAPE 
FOR INPUT TO THE TRANSLATOR, 

D, THE TRANSLATOR 83500 SYMBOLIC OUTPUT MAY BE 
SPECIFIED AS PUNCHED CARDS* A SYMBOLIC MAGNETIC 
TAPE FILE LABELLED "SYMTIN", OR A SYMBOLIC DISK 
FILE LABELLED "SYMDIN", 

E, ALLOWS FOR OPTIONAL COMPILE OF THE TRANSLATED 
PROGRAM ON THE B3500 ADVANCED ASSEM8LER USING 
THE MCP ZIP COMMUNICATE, 

F, PROVIDES OPTIONAL INTERSPERSED LISTINGS OF THE 
1A0O AND B3500 SYMBOLIC RECORDS ON OUTPUT 
PLUS AN OPTIONAL LISTING OF THE SOURCE PROGRAM 
ON INPUT, 

G, ALLOWS USER TO APPEND LABELS TO MACHINE LANGUAGE 
ADDRESSES USED IN THE SOURCE PROGRAM MEMORY 
ALLOCATION AT TRANSLATE TIME THROUGH USE OF 
DEFINE H OFN" CARDS, 

H, PROVIDES ERROR FLAGS AND WARNINGS ON THE 

TRANSLATED PROGRAMS, 
I, SEQUENCES THE B3500 SYMBOLIC FILE IN 

INCREMENTS OF 100, 
J, SIMULATES MOO COMPARISON INOICATOR 

AND OVERFLOW CONVENTIONS, 
K, ALLOWS FOR USER MODIFICATIONS OF 

TRANSLATOR EMITTED SUBROUTINES, 
L. RETAINS INTEGRITY OF 1400 CARD READER, CARD 

PUNCH, PRINTER MULTIPLE 1-0 CAPABILITY AND 

EXTENDS THIS CAPABILITY TO MAGNETIC TAPE, 
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SECTION 2 INPUT CAPABILITIES 
2-i, GENERAL* 

THE 1400/B3500 TRANSLATOR PROCESSES A SYMBOLIC CARD 
DECK OR CARD-IMAGE TAPE FORMATTED ACCORDING TO THE 
STANDARDS OF THE LANGUAGE-AUTOCQOER, SPS, OR BASIC 
AUTOCODER, THE AUTOCODER ASSEMBLER WILL ACCEPT 
AND/OR PRODUCE A SYMBOLIC TAPE WHICH MAY CONTAIN 
MULTIPLE AUTOCODER PROGRAMS* THIS "STACKED" 
AUTOCODER TAPE IS ACCEPTABLE AS INPUT TO THE 
1400/B3500 TRANSLATER, THE TAPE PRODUCED BY THE 
AUTOCODER ASSEMBLER IS UNLABELLED AND OPERATOR 
INTERVENTION THROUGH THE SPO IS REQUIRED TO REAO THE 
TAPE FILE, 

2-2, CONTROL CARDS* 

THE FOLLOWING CARDS ARE REQUIRED TO INITIATE THE 
TRANSLATION OF A 1400 PROGRAM, 

? EXECUTE TR1400 

? DATAB AUTO 

SPECIFICATION CARDS (DESCRIBED IN SECTION 4) 

SOURCE PROGRAM FOR TRANSLATION (OPTIONAL) 

? END 

2-3, 1400 LABEL RESTRICTIONS* 

THE 1400/B3500 TRANSLATOR RETAINS THE ORIGINAL 
LABELS USED IN THE SOURCE 1400 PROGRAM, THEREFORE* 
THE APPEARANCE OF LABELS IN THE SOURCE 1400 PROGRAM 
WHICH HAVE A RESERVED MEANING TO THE B3500 ASSEMBLEK 
OR ARE USED IN THE SYMBOLIC SUBROUTINES GENERATED 
BY THE TRANSLATOR MAY LEAD TO SYNTAX ERRORS DURING 
THE COMPILE (ASSEMBLY) ON THE B3500, THESE RESERVED 
IDENTIFIERS ARE* 

1X1 

1X2 

1X3 
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BASE 

ANY LABEL CONTAINING "X*", "F*% OR "R*" AS ITS 
FIRST TWO CHARACTERS MAY ALSO LEAD TO LABEL 
QUALIFICATION PROBLEMS 



PAGE 



SECTION 3 OUTPUT CAPABILITIES 
3-1, GENERAL* 

<•* m t» *• m m a a* m m « • 

THE 140O/B35O0 TRAMSLATOR ALLOWS THL OUTPUT MEDIA 
TO BE PRINTED COPY* MAGNETIC TAPE* PUNCHED CARDS* 
OR DISK. THE PRINTED COPY (PROGRAM LISTING) MAY BE 
SUPPRESSED* SPECIFIED EXCLUSIVELY* OR SPECIFIED IN 
COMBINATION WITH THE TRANSLATED SYMBOLIC FILE GOING 
TO ANY ONE OF THE OTHER OUTPUT MEDIA, 



3-2, PROGRAM LISTING! 

THE 1400/B3500 TRANSLATOR PROVIDES THREE OPTIONS IN 
SPECIFYING A PROGRAM LISTING, THE SOURCE 1400 
PROGRAM MAY BE LISTED ON INPUT. THE TRANSLATED B3500 
SYMBOLIC FILE AND/OR THE INPUT PROGRAM MAY BE LISTED 
ON OUTPUT, SHOULD LISTING OK BOTH OF THE LATTER BE 
SPECIFIED* A LISTING OF SOURCE HOO SYMBOLIC RECORDS 
INTERSPERSED WITH THE TRANSLATED SYMBOLIC RECORDS 
WILL BE PRODUCED. THE INTERSPERSED LISTING WILL 
PRECEDE THE LABEL FIELD OF THE SOURCE RECORD BY AN 
"*" TO ENHANCE THE READABILITY OF THE LISTING. THE 
FORMAT OF THESE LISTINGS IS SIMILAR TO THOSE 
DESCRIBED IN THEIR RESPECTIVE ASSEMBLER MANUALS, 



3-3, B3500 SYMBOLIC ASSEMBLY FILEJ 

THE B3500 SYMBOLIC ASSEMBLY FILE MAY BE RECORDED ON 
OISK* MAGNETIC TAPE* OR PUNCHED CARDS, THE LABEL ID 
FOR THE DISK FILE IS "SYMDlN* AND FOR THE TAPE FILE* 
"SYMTIN". THE FORMAT OF THESE FILES IS GIVEN IN THE 
B3500 ADVANCED ASSEMBLER MANUAL. 
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3-4, SYMBOLIC MODIFICATION! 



THE B3500 SYMBOLIC PROGRAM GENERATED BY THE 
1400/B3500 TRANSLATOR MAY CONTAIN VARIOUS STANDARD 
SUBROUTINES EMITTED BY THE TRANSLATOR, THESE 
SUBROUTINES ARE GENERATED TO ACCOMODATE TRANSLATION 
OF INSTRUCTIONS WHICH WOULD BE UNWIELDY TO TRANSLATE 
INTO IN-LINE CODE, PROVISION HAS BEEN MADE FOR USER 
MODIFICATION OF THE LIBRARY OF EMITTED SUBROUTINES, 
THIS LIBRARY IS ON THE 1400/B3500 SYSTEM TAPE 
AND MUST BE LOADED BEFORE BEGINNING A TRANSLATION, 
THE IDENTIFICATION OF THE SYMBOLIC LIBRARY FILE IS 
"AUTIMG", A LISTING OF THIS FILE APPEARS IN THE 
APPENDIX, 

THE FIRST THREE CHARACTERS OF EVERY RECORD ON THE 
AUTIMG FILE IS A SEQUENTIAL IDENTIFICATION NUMBER, 
THE SUBROUTINES TO BE EMITTED FROM THIS FILE AND 
THEIR STARTING AND ENDING IDENTIFICATION NUMBERS ARE 
LISTED BELOW, CARDS WITH AN ASTERISK IN COLUMN 4 ARE 
TREATED AS FILLER AND IGNORED DURING TRANSLATION, 



001 THRU 099 



100 


THRU 


120 


121 


THRU 


200 


201 


THRU 


220 


221 


THRU 


230 


231 


THRU 


300 


301 


THRU 


330 


331 


THRU 


360 


361 


THRU 


395 


396 


THRU 


505 



ERROR* WARNING* AND 
DOCUMENTATION MESSAGES 
CARD READ SUBROUTINE 
ADO-SUB SUBROUTINE 
HALT SUBROUTINE 
RESERVED CORE CONSTANTS 
COMPARE SUBROUTINE 
MOVE-CHAR-TO-RECORD- 
MARK SUBROUTINE 
MOVE SUBROUTINE 
(MOVES OVER 100) 
MOVE CHARACTERS AND 
SUPPRESS ZEROS ROUTINE 
MOVE CHARACTERS AND 
EDIT SUBROUTINE 
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506 THRU 530 PRINT ROUTINE FOR OTHER 

THAN SINGLE" SPACING 

531 THRU 560 PRINT ROUTINE FUR 

TRIPLE SPACING 
561 THRU 630 MULTIPLY SUBROUTINE 
631 THRU 700 DIVIDE SUBROUTINE 
701 THRU 740 CONVERT 1400 ADDRESS 

TO DECIMAL ADDRESS 
741 THRU 770 DETERMINE CORRECT 

INDEX REGISTER VALUE 
771 THRU 790 POSITION PRINTER-NO 

TRIPLE SPACING 
791 THRU B20 POSITION PRINTER-WlTH 

TRIPLE SPACING 

TO MODIFY OR REPLACE A SUBROUTINE LISTED ABOVE THE 
"AUTIMG" FILE MUST BE CONVERTED TO CARDSt THE 
DESIRED CHANGES ARE THEN MADE TO THE CARDS. ALL 
SUBROUTINES MUST FALL WITHIN THE RANGE GIVEN ABOVE* 
WHEN CHANGES TO THE CARD DECK ARE MADE THE "AUTlMG" 
DISK FILE IS RECREATED. THERE IS A PROGRAM CALLED 
"TRNLI8" ON THE 1400/B3500 SYSTEM TAPE TO FACILITATE 
THIS TYPE OF MODIFICATION, THE INSTRUCTIONS FUR 
USING "TRNLIB" ARE GIVEN IN THE CHAPTER ON OPERATING 
INSTRUCTIONS, 

WHEN MODIFYING THE B3500 SYMBOLIC ASSEMBLY FILE THE 

urunov AiinrjtTTOM ntr tUC ftccruUirn oonr.DAu MuCT U r 
fntnyn | wLt-WVuixw 1 ! Uf | i » L. n o v? *~ n *•* i_ *- w i r\v va n n n «*? u \? i w«- 

CONSIDERED. THE RESERVED MEMORY ALLOCATION IS GIVEN 
BELOW! 

CORE LOCATION USE 

1-7 INDIRECT FIELD LENGTHS 

8-15 INDEX REGISTER 1 

16-23 INDEX REGISTER 2 

24-31 INDEX REGISTER 3 

32-39 INDIRECT FIELD LENGTHS 



PAGE 

40-45 PROGRAM STACK POINTER 

46-47 HALT BREAKPOINT MASK 

48-64 EDIT TABLE 

65-71 SENSE SWITCHES! A (LAST CARD 

SWITCH)* B THROUGH G» 



3-5, B3500 ASSEMBLE ERRORSl 



THE B3500 SYMBOLIC FILE GENERATED BY THE 1400/83500 
TRANSLATOR MAY WHEN COMPILED (ASSEMBLED) GIVE SYNTAX 
ERRORSt CONDITIONS LEADING TO THESE SYNTAX ERRORS 
ARE LISTED 8EL0WI 

1, REFERENCE TO LABELS WITHIN NON-TRANSLATED 
MACROS, 

2» REFERENCE TO FILE NAMES NOT DETECTED 
BY TRANSLATOR. 
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SECTION 4 METHOD OF SPECIFICATION 



4-1, GENERAL* 



THE i400/B3500 TRANSLATOR REQUIRES A SET OF 
SPECIFICATION CARDS FOR EACH 1400 PROGRAM TO BE 
TRANSLATED, THERE ARE TWO TYPES OF SPECIFICATION 
CARDS REQUIRED BY THE TRANSLATOR, DOLLAR SIGN CARDS 
AND DEFINE CARDS. 



4-2, THE DOLLAR SIGN CARD! 

THE DOLLAR SIGN CARD RECEIVES ITS NAME FROM THE »S" 
IN CARD COLUMN ONE USED TO IDENTIFY IT. THE 
1400/83500 TRANSLATOR DOLLAR SIGN CARD IS USED FOR 
DESIGNATION OF INPUT OUTPUT MEDIA ANO 1400 PROGRAM 
PARAMETERS. IF THERE ARE MULTIPLE W S" CARDS ONLY THE 
LAST ONE IS CONSIDERED. THE DOLLAR SIGN CARD 
IS A FREE FORM SPECIFICATION CARD, 

4-2-1. INPUT OUTPUT MEDIA DESIGNATIONS I 

THE INPUT OUTPUT MEDIA DESIGNATION OPTIONS ARE 
LISTED BELOW WITH MUTUALLY EXCLUSIVE OPTIONS LISTED 
ON THE SAME LINE. IF MORE THAN ONE OF THESE MUTUALLY 
EXCLUSIVE OPTIONS APPEARS ON A DOLLAR SIGN CARD ONLY 
THE LAST IS CONSIDERED. THE DEFAULT OPTIONS ARE 
INDICATED IN PARENTHESES. 

It CARDIN TAPEIN CCARDIN ASSUMED IF 
NEITHER IS SPECIFIED). 

2, CAROOT TAPEOT DISKOT (NO FILE IS 
GENERATED IF NO FILE IS SPECIFIED). 

3, LISTINPUT (ASSUMED OFF ON DEFAULT). 

4, 1400 (ASSUMED OFF ON DEFAULT). 

5, B3500 (ASSUMED OFF ON DEFAULT). 

6, ASSEMBLE (NO ASSEMBLE ON DEFAULT). 
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THE INPUT MEDIA OPTIONS, CARDIN AND TAPEIN* SPECIFY 
THE INPUT MEDIA FOR THE SOUKCE 1400 PROGRAM. CARDOT, 
TAPEOT* AND OISKOT LIKEWISE SPECIFY THE OUTPUT MEDIA 
FOR THE TRANSLATED B3500 SYMBOLIC ASSEMBLY FILE, THE 
APPEARANCE OF LISTINPUT ON THE DOLLAR SIGN CARD 
CALLS FOR LISTING OF SOURCE PROGRAM ON INPUT, 1400 
AND B3500 QN THE DOLLAR SIGN CARD INDICATE LISTING 
OF THE REARRANGED 1400 CODE AND THE B3500 SYMBOLIC 
OUTPUT RESPECTIVELY, IF BOTH 1400 AND 83500 APPEAR 
ON THE OOLLAR SIGN CARD AN INTERSPERSED LISTING WILL 
BE PRODUCED, 

IF THE "ASSEMBLE" OPTION IS SPECIFIED THE TRANSLATOR 
WILL "ZIP" TO THE ADVANCED ASSEMBLER FOR A 
COMPILATION TO LIBRARY OF THE B3500 SYMBOLIC 
RECORDS, THE ID OF THE ASSEMBLED PROGRAM IS SET TO 
THE ID SPECIFIED FOR THE PROGRAM ON THE DOLLAR 
SIGN CARD. IF NO ID IS SPECIFIED THE PROGRAM 
WILL BE ASSEMBLED UNDER THE ID "XX", 

4-2-2, 1400 PROGRAM PARAMETERS! 

THERE ARE ESSENTIALLY FOUR 1400 PROGRAM PARAMETERS 
WHICH MUST BE FURNISHED TO THE 1400/B3500 
TRANSLATOR, THESE PARAMETERS ARE LISTED BELUW WITH 
MUTUALLY EXCLUSIVE OPTIONS APPEARING ON THE SAME 
LINE, THE DEFAULT OPTIONS ARE INDICATED IN 
PARENTHESES. 

1, "XXXXX" (ON DEFAULT, ID = SPACES), 

2, AUTO SPS BASIC (AUTOCODER ASSUMED 
IF NONE SPECIFIED), 

3, 1401 1440 1460 (1401 ASSUMED IF 
NONE SPECIFIED), 

4, BYPASS (OFF ON DEFAULT), 

THE PARAMETER REPRESENTED BY "XXXXX" IS THE PROGRAM 
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IDENTIFICATION FOR THE 1400 PROGRAM AND THE 
TRANSLATED B3500 ASSEMBLY PROGRAM, THIS PARAMETER 
MUST BE CODED AS A FIVE CHARACTER IDENTIFIER 
ENCLOSED IN QUOTES. THE PARAMETERS AUTO, SPS, AND 
BASIC INDICATE THE LANGUAGE THE 1400 PROGRAM IS 
COOED INI AUTOCODER, SPS, OR BASIC AUTOCODER 
RESPECTIVELY. 1401, 1440, AND 1460 SPECIFY WHICH OF 
THE THREE SYSTEMS THE 1400 PROGRAM WAS DESIGNED 
TO RUN ON, BYPASS IS A SPECIAL PARAMETER WHICH IS 
APPLICABLE ONLY WHEN TAPE INPUT HAS BEEN SPECIFIED. 
WHEN BYPASS IS SET ON, THE TRANSLATOR BYPASSES THE 
REMAINDER OF THE SPECIFICATION CARDS (IF 
SPECIFICATION CARDS ARE PRESENT) FOR THAT PROGRAM* 
POSITIONS THE INPUT TAPE AT THE BEGINNING OF THE 
NEXT PROGRAM, AND BEGINS READING SPECIFICATION 
clone rno rur ucu Donr.Dtu. tur Donguiu hvpkc 

FEATURE HAS BEEN IMPLEMENTED TO PERMIT SELECTIVELY 
TRANSLATING PROGRAMS FROM A STACKED INPUT TAPE. 



4-3. THE DEFINE CARDJ 



THE DEFINE CARD IS A CODING CONVENTION IMPLEMENTED 
IN THE 1400/B3500 TRANSLATOR TO SERVE TWO BASIC 
PURPOSES. FIRST- THE DEFINE CARD IS USED TO PASS 
INFORMATION TO THE TRANSLATOR ABOUT THE PERIPHERALS 
USED BY THE PROGRAM TO BE TRANSLATED AND, SECOND- 
THE DEFINE CARD IS USED TO EQUATE A LABEL TO A BLOCK 
OF MEMORY IN THE 1400 PROGRAM. THE DEFINE CARD IS 
PUNCHED IN THE STANDARD FORMAT OF SPS. ONE DEFINE 
ENTRY IS REQUIRED FOR EACH 1-0 DEVICE USED BY THE 
1400 PROGRAM, THE FORMAT OF THE DEFINE CARD IS GIVEN 
BELOW, 

DEFINE CARD ENTRIES WHICH ARE INTENDED TO APPEND A 
LABEL TO A BLOCK OF MEMORY CONTAIN ALL BLANKS 
EXCEPT* 
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NOTE! 



COL 08-13 ANY LABEL 
COL 14-16 LITERAL "OFN" 

COL 17-21 STARTING LOCATION OF 
AREA TO BE DEFINED 

COL 28-32 ENDING LOCATION OF 
AREA TO BE DEFINED 



THE PURPOSE OF THE AREA-DEFINING ENTRY IS TO EQUATE 
1400 PROGRAM AREAS WHICH HAVE BEEN ADDRESSED 
EXCLUSIVELY IN MACHINE LANGUAGE TO A LABEL SO THEY 
MAY BE TRANSLATED, THE TRANSLATOR WILL CREATE A DATA 
DECLARATION (CNST) FOR EACH LABEL SO DEFINED. THUS 
ALL MACHINE LANGUAGE REFERENCES TO THIS AREA WILL 
BE TRANSLATED TO THE FORMAT LABEL + INCREMENT. THIS 
FUNCTION MAY ALSO BE USEFUL WHERE EQU OR DS 
STATEMENTS HAVE BEEN USED TO EQUATE AUTOCODER OR SPS 
LABELS TO MACHINE LANGUAGE ADDRESSES WITHOUT 
RESERVING CORE. IN THIS CASE THE "DFN" ENTRY WILL 
CAUSE A DATA DECLARATION TO BE INSERTED IN THE 
PROGRAM. SUBSEQUENT DS OR EQU STATEMENTS REFERENCING 
MACHINE LANGUAGE ADDRESSES WITHIN THIS DEFINED AREA 
WILL THEN BE EQUATED TO THE "DEFINED" LABEL PLUS 
AN APPROPRIATE INCREMENT. IN THIS WAY REFERENCE TO 
THE EQU OR DS LABELS MAY BE PROPERLY TRANSLATED, 

OEFINE CARD ENTRIES WHICH DEFINE FILES ARE FORMATTED 
AS FOLLOWS! 

COL 08-13 ANY RESERVED FILE NAME 

COL 14-16 LITERAL "DFN" 

COL 17-21 STARTING LOCATION OF 

FILE 1-0 AREA 
COL 28-32 ENDING LOCATION OF 

FILE 1-0 AREA 
COL 40-45 FILE LABEL ID 



NOTE! 
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THE RESERVED FILE NAME MENTIONED ABOVE MUST BE 
FORMATTED AS FOLLOWS* 

THE FIRST TWO CHARACTERS IDENTIFY THE DEFINE CARD 
TO BE DEFINING A FILE AND MUST BE CODED AS «F* W * 
CHARACTERS 3-5 OF THE FILE NAME ARE THE B3500 
HARDWARE MNEMONIC DESIGNATION FOR THE PERIPHERAL 
DEVICE ASSOCIATED WITH THF FILE, I.E. 

MTP - MAGNETIC TAPE 

DSK s OISK 

CRD * CARD READER 

CPU s CARD PUNCH 

PRN s PRINTER 
THE LAST CHARACTER IN THE FILE NAME IS THE 1400 
LOGICAL UNIT NUMBER OF THE I-Q DEVICE. 



4-4. THE DEFINE END CARD! 



EACH SET OF PROGRAM SPECIFICATION CARDS (DOLLAR 
SIGN AND/OR DEFINE CARDS) MUST BE FOLLOWED BY 
A DEFINE END CARD. THE DEFINE END CARD (IDENTIFIED 
BY "DFE" IN COLUMNS 14-16) IS USED TO TERMINATE 
READING OF SPECIFICATION CARDS AND INITIATE 
PROCESSING OF THE 1400 PROGRAM FROM EITHER CARDS 
OR MAGNETIC TAPE. 



4-5. SPECIFICATION CARD ORDERS 

THE ORDER OF PROGRAM SPECIFICATION CARDS IS AS 
FOLLOWS! 

A. DOLLAR SIGN CARD(S). IF MORE THAN ONE IS 
PRESENT ONLY THE LAST ONE IS EFFECTIVE. 

B. DEFINE CARD(S). 

C. THE DEFINE END CARD. 

IF THE 1400 PROGRAM TO BE TRANSLATED IS TO BE 

luPMTTrn ronu tuc c»pr\ orinro Tur oonna hu 
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DECKCS) MUST IMMEDIATELY FOLLOW ITS RESPECTIVE 
PROGRAM SPECIFICATION CARDS. THERE IS NO SPECIAL 
CARD REQUIRED TO INDICATE END OF TRANSLATOR 
INPUT. THIS FUNCTION IS SIMULATED THROUGH THE 
NORMAL END OF FILE ACTION ON THE CARD READER, 
THE 1400 LANGUAGE END CARD SIGNALS THE END OF 
THE INPUT SYMBOLIC DECK, IT MUST BE PRESENT 
FOR EACH SYMBOLIC DECK TO BE TRANSLATED. 
IN FILLING OUT PROGRAM SPECIFICATION CARDS IT 
SHOULD BE REMEMBERED THAT WHILE NO "DFN" CARDS ARE 
REQUIRED BY THE TRANSLATOR* THE TRANSLATOR DOES 
REQUIRE AT LEAST ONE «$" CARD AND ONLY ONE "DFE" 
CARD IN EACH SET OF PROGRAM SPECIFICATION CARDS. 
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SECTION 5 FUNCTIONAL DESCRIPTION 



5-1, GENERAL! 



THE 140Q/B3500 TRANSLATOR IS A FIVE PHASE PROGRAM 
TO TRANSLATE AUTOCODER* BASIC AUTOCODER* OR SPS AS 
WRITTEN FOR THE IBM SERIES 1401* 1440* OR 1460 
SYSTEMS TO 83500 ASSEMBLY LANGUAGE. THE 1400/B3500 
TRANSLATOR IS PROGRAMMED TO RUN ON THE B3500 SYSTEM, 
THE FUNCTION OF EACH OF THE PHASES OF THE TRANSLATOR 
IS DESCRIBED BELOW. 



5-2. PHASE It 



-rue - F * o e -r DUArr ne rur i h n a /Q •> t Art touiici A-rnu 
int. r x n o i r hmoc ur int. tiuvrDJvvv inSnjLfiiun 

CONVERTS THE INPUT PROGRAM TO A FIXED FORM 
SPS-LIKE LANGUAGE WHICH IS THEN UTILIZED 
INTERNALLY FOR TRANSLATION. AN OPTIONAL 
LISTING OF THE INPUT PROGRAM IS AVAILABLE AT 
THIS TIME. 



5-3. PHASE 21 



THE SECOND PHASE OF THE TRANSLATOR PASSES THE 
INTERNAL REPRESENTATION OF THE INPUT PROGRAM 
CREATED BY PHASE 1 AND BUILDS A MAP OF THE 
iflOO MEMORY ALLOCATION PLUS A LABEL TABLE. THE LABEL 
TABLE CONTAINS AN ENTRY FOR EACH LABEL IN THE SOURCE 
PROGRAM PLUS ANY LABELS GENERATED BY THE TRANSLATOR. 
PHASE 2 APPENDS TO EAcH ENTRY IN THE LABEL TABLE 
INFORMATION REQUIRED IN LATER PHASES OF TRANSLATION. 



5-4, PHASE 31 



PHASE 3 DOES A LOOKUP ON THE LABEL TABLE FOR EACH 
LABEL REFERENCE IT ENCOUNTERS IN THE INPUT PROGRAM 
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AND AFFIXES PERTINENT INFORMATION IN THE LABEL TABLE 
TO THE LABEL REFERENCE. THIS IS OONE TO DETERMINE 
INFORMATION ABOUT THE ADDRESSES REFERENCED IN EACH 
INSTRUCTION. THE THIRD PHASE ALSO UPDATES THE MEMORY 
MAP BUILT IN PHASE 2 WITH WORD MARKS IMPLIED BY 
INSTRUCTION LOCATIONS AND DATA DEFINING STATEMENTSt 
THIS MAP OF MEMORY ALLOCATION PLUS WORD MARK 
LOCATIONS IS THEN WRITTEN TO DISK. 



5-5, PHASE 4» 



THE FOURTH PHASE OF TRANSLATION PASSES THE INTERNAL 
SOURCE PROGRAM AND APPENDS FIELD LENGTHS TO THE 
ADDRESSES REFERENCED BY EACH INSTRUCTION. THIS IS 
DONE ONLY WHERE IT IS DETERMINED THE OUTPUT B3500 
INSTRUCTION WILL REQUIRE FIELD LENGTHS AND IS 
ACCOMPLISHED BY ANALYZING WORD MARK LOCATIONS IN 
THE PREVIOUSLY CONSTRUCTED MEMORY MAP, 

NOTE* 

IT SHOULD BE REMEMBERED THAT THE 1400/B3500 
TRANSLATOR DOES NOT SIMULATE THE LOGIC FLOW OF THE 
SOURCE PROGRAM BUT RATHER TRANSLATES EACH 
INSTRUCTION AS ENCOUNTERED IN THE INPUT PROGRAM. 
THEREFORE SW, CW AND OTHER INSTRUCTIONS WHICH AFFECT 
WORD MARK LOCATIONS WILL CHANGE WORD MARKS IN 
THE TRANSLATOR MEMORY ALLOCATION SCHEME AS 
ENCOUNTERED IN THE INPUT PROGRAM. THE EXTENT TO 
WHICH THIS AFFECTS THE COMPLETENESS OF TRANSLATION 
IS DEPENDENT UPON THE PROGRAMMING TECHNIQUES 
EMPLOYED. 



5-6, PHASE 5: 



THE FIFTH PHASE OF THE TRANSLATOR TAKES THE 
INTERNAL REPRESENTATION OF THE 1400 PROGRAM AS 
UPDATED BY THE PREVIOUS PHASES OF TRANSLATION 
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AND PRODUCES B3500 SYMBOLIC CODE* THIS PHASE 
ALSO PRODUCES THE OPTIONAL INTERSPERSED LISTING 
DESCRIBED IN PARAGRAPH 4-2-1, 
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SECTION 6 OPERATING INSTRUCTIONS 



6-1. GENERAL: 



OPERATING INSTRUCTIONS FOR THE 1400/B3500 TRANSLATOR 
ARE SUBDIVIDED INTO TWO CATEGORIES; THE INSTRUCTIONS 
NECESSARY TO EFFECT THE ACTUAL RUNNING OF THE 
TRANSLATOR PROGRAM AND THE INSTRUCTIONS REQUIRED FOR 
MODIFYING THE LIBRARY OF TRANSLATOR EMITTED WARNING 
MESSAGES AND SUBROUTINES. 



6-2. TRANSLATION: 



IN ORDER TO RUN THE 1400/B3500 TRANSLATOR THE 
FOLLOWING STEPS SHOULD BE FOLLOWED: 

A. FILL OUT PROGRAM SPECIFICATION CARDS AS 

OUTLINED IN SECTION 4. 
Bt MOUNT THE AUTOCODER INPUT TAPE IF TAPE 

INPUT HAS BEEN SPECIFIED. 

C. PREPARE THE EXECUTE DECK AS SPECIFIED 
IN PARAGRAPH 2-2. THE OPTIONAL 1400 
SOURCE PROGRAM DECK MUST NOT BE PRESENT 
IF TAPE INPUT HAS BEEN SPECIFIED, 

D. PLACE EXECUTE DECK IN CARD READER AND 
READ. 

E. IF TAPE INPUT HAS BEEN SPECIFIED FOR 
THE PROGRAM(S) TO BE TRANSLATED THEN 
IMMEDIATELY FOLLOWING THE READING OF 
THE PROGRAM SPECIFICATION CARDS THE 
FOLLOWING MESSAGE WILL APPEAR UN THE 

SPO - "NO FILE AUTOTP TR1400 (MIX INDEX)". 
THE OPERATOR SHOULD THEN SPECIFY THE UNIT 
ON WHICH HE HAS MOUNTED THE INPUT TAPE BY 
KEYING IN THE FOLLOWING! 
(MIX INDEX) UL (1-0 CHANNEL NO)/(UNIT NO). 
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F, IF ONE OR MORE PROGRAMS HAVE SPECIFIED 
SYMBOLIC TAPE "SYMTIN" OUTPUT THE OPERATOR 
MUST MAKE AVAILABLE TO THE SYSTEM A 
SCRATCH TAPE EACH TIME THE SPO MESSAGE 
*MT RQO SYMTIN TR1400 (MIX INDEX)" 
APPEARS. 

G, IF MORE THAN ONE PROGRAM CALLS FOR A 
SYMBOLIC DISK FILE "SYMDIN" AS OUTPUT 
A "DUPLICATE LIBRARY" MESSAGE WILL BE 
DISPLAYED ON THE SPO EACH TIME A NEW 
-SYMDIN" FILE IS CREATED (EXCEPT FOR 
THE FIRST TIME THE FILE IS CREATED). 
THIS MESSAGE TAKES THE FORM OF 

"DUP LIBRARY SYMDIN TR1400 (MIX INDEX)" 
IF THE EXISTING "SYMDIN" FILE IS NOT IN 
USE THE OPERATOR SHOULD CHANGE IT TO A 
NEW NAME, E.G. KEY IN 
"CC CHANGE SYMDIN TO NEWID" 
AND THEN KEY IN 
"(MIX INDEX) OK", 
H. UPON TRANSLATING THE FINAL PROGRAM THE 

TRANSLATOR WILL GO TO A NORMAL END OF JOB. 



6-3, LIBRARY MODIFICATION^ 

IT IS ANTICIPATED THAT SOME USERS OF THE 1400/83500 
TRANSLATOR MAY DESIRE TO MODIFY OR ADD TO THE 
• tqdaov nr TDtuCi trno ftFuFB4TFn RURBnilTlNFS TCI 

FACILITATE TRANSLATION OF PROGRAMS WHICH EMPLOY 
SPECIALIZED UOO PROGRAMMING TECHNIQUES. PROVISION 

HAS BLLN MAUt F UK bU^fl wuuir il«ltuN «a t*n,«ii'i.u * N 
PARAGRAPH 3-4, THE OPERATING INSTRUCTIONS FOR 
EFFECTING SUCH A MODIFICATION FOLLOW. 

A, LOAD FROM THE "AUTSYS" SYSTEM TAPE 

THE AUTIMG (SYMBOLIC CARD) FILE AND THE 
PROGRAM TRNLIB, E.G. KEY IN SPO 
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"CC LOAD FROM AUTSYS AUTIMG, TRNLIB", 

B, EXECUTE PROGRAM CALLED TRNLIB* E.G. 
KEY IN SPO 

"CC EXECUTE TRNLIB", 

C. IMMEDIATELY FOLLOWING BOJ TRNLIB WILL 
DISPLAY THE FOLLOWING MESSAGE ON THE SPO* 
"DUMP, CREATE, DUMP AUT, CREATE AUT, 

DUMP SOLT OR CREATE SOLT" 

THIS MESSAGE INDICATES THE POSSIBLE 

USES OF TRNLIB, 

THE PROGRAM TRNLIB WILL THEN WAIT ON AN 

ACCEPT STATEMENT, SINCE THE PURPOSE OF 

THIS RUN IS TO OBTAIN A CARD DECK PLUS 

LISTING OF THE AUTIMG DISK FILE, 

KEY IN SPO 

"(MIX INDEX) AXDUMP AUT". 

B« AFTER PRODUCING A CARD DECK PLUS LISTING 
OF THE AUTIMG FILE TRNLIB WILL GO TO A 
NORMAL END OF JOB, 

E, AT THIS POINT THE PROGRAMMER IS READY TO 
INSERT HIS OWN MODIFICATION INTO THE 
SUBROUTINES, THE FORMAT OF THE CARDS IN 
THE AUTIMG FILE SUBROUTINES IS THE SAME 
AS THE STANDARD B3500 ADVANCED ASSEMBLER 
REQUIRES EXCEPT; 
It POSITIONS 1-3 CONTAIN THE SEQUENCE 

NUMBER OF THE CARD WITHIN THE AUTIMG 
FILE. 
2, POSITIONS 4-7 ARE BLANK, 



NOTEl 



AREA WITHIN THE SYMBOLIC 
SUBROUTINES IS OFTEN RESERVED FOR 
MODIFICATION BY INSERTING BLANK 
FILLER CARDS WITHIN THE SUBROUTINES. 
THESE BLANK FILLER CARDS ARE 
IDENTIFIED BY AN ASTERISK IN 
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COLUMN a, 

F. SEQUENCE NUMBERS FOR MODIFYING THE 
AUTIMG SYMBOLIC FILE SHOULD BE OBTAINED 
BY EXAMINING THE LISTING OF THE FILE 
PRODUCED 8Y TRNLIB IN CONJUNCTION WITH THE 
GUIDELINES FOUND IN PARAGRAPH 3-4 UN 83500 
SYMBOLIC MODIFICATION. 

G. WHEN THE PROGRAMMER HAS FINISHED MUDIFYING 
THE AUTIMG DECK AND IS PREPARED TO 
RECREATE THE AUTIMG DISK FILE HE SHOULD 

1. EXECUTE TRNLIB AS EXPLAINEO IN 
PARAGRAPH 6-3-8. 

2. KEY IN SPQ 

"(MIX INDEX) AXCREATE AUT" 
AS PER 6-3-C. 

3. PLACE NEW AUTIMG CARDS IN READER 
PRECEDED BY A "DATAB GENCRD" CONTROL 
CARD AND TERMINATED BY AN "END" 
CONTROL CARD. 

H. UPON CREATING THE NEW AUTIMG FILE TRNLIB 
WILL WAIT ON A "DUPLICATE LIBRARY" 
CONDITION, THE OPERATOR SHOULD REMOVE 
THE OLD AUTIMG FILE BY KEYING IN SPO 
"(MIX INDEX) RM" f 

TRNLIB WILL THEN GO TO A NORMAL END 
OF JOB. 



NQTfc I 

IF IT IS DESIRED TO CREATE A NEW SYSTEM TAPE AFTER 
UPDATING "AUTIMG", NORMAL PROCEDURES FOR LOADING AND 
DUMPING FILES SHOULD BE FOLLOWED, IN THIS INSTANCE' 
PRIOR TO RUNNING TRNLIB THE ENTIRE U00/B3500 SYSTEM 
TAPE SHOULD BE LOAOEDJ E.G. AT REFERENCE 6-3-A KEY 

IN SPO 

"CC LOAD FROM AUTSYS /." 

WHEN THE NEW AUTIMG FILE HAS BEEN CREATED A NEW 
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AUTSYS SYSTEM TAPE MAY BE CREATED THROUGH USE OF 
THE MCP DUMP OPTION. THE PROGRAMS AND FILES ON 
THE SYSTEM TAPE (AUTSYS) AREl 

TRUOO 1400 TO B3500 TRANSLATOR 

TRNLIB UTILITY PROGRAM 

AUTIMG SUBROUTINE FILE 
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APPENDIX 



A-l. TRANSLATOR EXECUTE DECKJ 



? EXECUTE TRHOO 

? DATAB AUTO 

STAPEIN LISTINPUT 

STAPEIN BYPASS 

STAPEIN LISTINPUT 1400 e3500 DISK "IDENT" 

F*PRN1DFN00201 00333 PRTLIN 
F*CPU1DFN00101 00180 PUNCH 
F*CRD10FN00001 00080 CARDS 
DFE 

(IF CARO INPUT HAD BEEN SPECIFIED A SOURCE 

CKUUNN1 i.i 1 1» rv rruuuu ° c iiui'Mtu <■(-?! ■- / » 
? END 
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A-2* "AUTIMGJJ FILE! 

CNOTEl LAST EIGHT COLUMNS ARE NOT LISTED HERE), 

0001 ******* THE ABOVE INSTRUCTION HAS BEEN DELETED 

0002 ******** UNIDENTIFIED OP-CODE OR NON-TRANSLATED BRANCH OPTION * 

0003 ******** NON-TRANSLATED -/O COMMAND ******* 

0004 ******** STACKER SELECT NOT TRANSLATED NO EFFECT ON PROGRAM * 

0005 ******** A-ADDR AFFECTS WORD MARK IN CODE - POSSIBLE LOGIC ERROR - 

0006 ******** A-ADDR IS DATA - OK UNLESS DYNAMIC FIELD SIZE ADJUSTMENT- 

0007 ******** 8-ADDR AFFECTS WORD MARK IN CODE - POSSIBLE LOGIC ERROR - 

0008 ******** B-ADDR IS DATA - OK UNLESS DYNAMIC FIELD SIZE ADJUSTMENT- 

0009 ******** NUN-TRANSLATED - INTENT NOT DETERMINED *********** 

0010 ******** SBR TO BRANCH ZERO - ASSUMED SUB-ROUTINE LINKAGE - - ** 

0011 ******** INSTRUCTION MODIFICATION — RESULTS PROBABLY INCORRECT *** 

0012 ******** CODE CHARACTER USED AS DATA - PROBABLY INCORRECT -- 

0013 ******** A-ADDR IS M/L NOT DEFINED- INSERT PROPER A-ADORESS — * 

0014 ******** B-ADDR IS M/L NOT DEFINED - INSERT PROPER B-AODRESS — * 

0015 ******** MISSING A-ADDR OR NON TRANSLATED A CHAIN-INSERT A LABEL * 

0016 ******** MISSING B-ADDR OR NON TRANSLATED B CHAIN-INSERT B LABEL 

0017 ******** ADDRESS CONSTANT IS MACHINE LANGUAGE - NOT DEFINED 

0018 ******** EQUATE FOR AN X-CONTROL OPERAND - PrOBALLY NOT NEEDED - 

0019 ******** EQUATE OF A NON DEFINED MACHINE LANGUAGE ADDRESS 

0020 ******** LCA USED IN CONJUNCTION WITH MCE — NOT NEEDED — 

0021 ******** L CA NOT FOUND FOR THIS MCE - INSERT PROPER B ADDRESS — 

0022 ******** NON TRANSLATED BRANCH IF INDICATOR PROBALLY ERROR BRANCH * 

0023 ******** UN-LABELED DA FIELD OR SUB-FIELD - NOT REQUIRED 

0024 ******** N0 N TRANSLATED WM-BRANCH EITHER INDEXED OR ABSOLUTE ZERO * 

0025 ******** WARNING - DSA ADDRESS INCREMENT MAY BE INCORRECT * 

0026 ******** MOD 16000 COMPLIMENT ADDRESS ASKED FOR - CHECK REFERENCE * 

0027 ******** INCREMENTED BRANCH - LOCATION NOT FOUND - INCORRECT ADDR * 

0028 ******** BRANCH TO OATA AREA - CODE PROBALLY INCORRECT — - * 

0029 ******** INDEXED BRANCH - INDEX REGISTER VALUE PROBALLY INCORRECT-* 

0030 ******** BRANCH TO ZERO « ASSUMED SUBROUTINE EXIT * 

0031 ******** BRANCH TO SBR - ASSUMED SUBROUTINE ENTRY - * 

0032 ******** INSTRUCTION MODIFICATION — RESULTS PROBALLY OK * 



+ 



* 



* 
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„«„, ******** nor. cTATTMrMTt wflT TRAN&IATFD - POSSIBLE LOCATION ERROR * 

0034 ******** SEGMENTATION UF CODE IS PROVIDED HERE, HOWEVER, THE POINT* 

0035 ******** WHERE OVERLAYING IS ACCOMPLISHED MUST BE DETECTED AND THE* 

0036 ******** PROPER OVERLAY CODE INSERTED DEPENDING ON THE ASSEMBLER * 

0037 ******** TO BE USED. ********************************************* 

0038 ******** SKIP TO CHANNEL 12 MUST BE CHANGED TO ANOTHER CHANNEL 

0039 ******** LITERAL TRUNCATION- LIT SIZE TOO LARGE FOR PARAMETER * 

0040 ******** ADD OR SUB OF 1400 ADDRESS CONSTANT INVALID ON B3b00 

0041 ******** THIS NOP (MORE THAN ONE-ADDRESS) HAS NO B3500 EQUIVALENT * 
0042 

0043 
0044 
0045 

0046 ******** NON-TRANSLATED 1-0 COMMAND ACTION DEPENDENT ON SYSTEM * 

0047 ******** WRITE DISK CHECK IS HARDWARE DEPENDENT-LlKELY NOT NEEOED * 
0046 ******** SCAN DISK HARDWARE DEPENDENT - PROVIDE SUBROUTINE * 

0049 ******** SEEK DISK REQUIRES ARM MOVEMENT - NOT NEEDED 

0050 ******** "GET" AND "PUT" REQUIRE MANUAL CORRECTION. INSERT FILE NAM 

0051 BRANCH ADDRESS, ERROR BRANCH ADDRESS AS REQD. IF IOC ENTRY SPEClFI 

0052 AREA OTHER THAN THE RECORD AREA ADD THE APPROPRIATE -MOVE" INSTRUC 
00 b3 ******** THE PRECEDING DISK COMMAND REQUIRES THE FOLLOWING* 

0054 ******** 1, THE NAME OF THE APPROPRIATE FILE IN COLUMN 22J 

0055 ******** 2e * 6-CHARACTER LABEL IN COLUMN 34 DESIGNATING A 

0056 ******** LOCATION TO BRANCH TO AT END-QF-FILE ON DISK; 

0057 ******** THE EOF LABEL IS OPTIONAL. IF IT IS OMITTED, AN 

0058 ******** END-OF-FILE CONDITION WILL RESULT IN A 

0059 ******** NON-RECOVERABLE SITUATION DESIGNATED ON THE SPO 
™*n ******** BY THE MCP AS "EOF « NO LABEL". 

w w v *# ' 

0061 ******** FOR OUTPUT DISK FILES, END-OF-FlLE MEANS THAT 

006? ******** ALL REQUESTED DISK AREAS HAVE BEEN FILLED. 

0063 ******** DISK NORD-MARK FORMAT NOT COMPATIBLE WITH THE B3500 * 

0064 ******** TYPE OF DISK I/O -- SECTOR MODE * 

0065 ******** TYPE OF DISK I/O — FULL TRACK RECORD * 

0066 ******** TYPE OF DISK 1/0 " SECTOR MODE WITH COUNT OVERLAP * 

0067 ******** TYPE OF DISK I/O — TRACK SECTORS WITH ADDRESSES * 

0068 ******** TYPE OF DISK I/O « TRACK RECORDS WITH ADDRESSES 

0069 ****************** UiSK *■ iut KLuRb«NiZ« i iuw rKuS«3i_T nn.vta&«.M 



* 



PAGE 27 
0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0076 

0079 

0080 

0081 

0082 

0063 

0084 

0085 

0086 

0067 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

009 7 

0098 

0099 

0100 

0101 CARD READ ROUTINE 

0102 

0103* 

0104 X*R MVW R*CRD R*CRD1 CURRENT RECORD 

0105 REA0 F*CRD1 X*ECR0 READ NEXT RECOR 
Jl06 EXT RETURN TO PROGR 
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0107 


X*ECR0 


i 








0108 




MVN 


1 11 


NLX*SWA 




0109 




EXT 








0110 












0111* 












0112* 












0113* 












0114* 












0115* 












0116* 












0117* 












0118* 












0119* 












0120* 












0121 












v a c e- 






ADD ™ 


SUBTRACT SUBROUTINE 


0123 












0124 












012b 


X*ACH 


4 • r\ r- f* 


2 5BASE 


183 BASE 


233 


0126 




DEC 


2 58ASE 


183 BASE 


233 


0127 




DEC 


2 58ASE 


203 BASE 


293 


0128 




DEC 


? 5BASE 


203 BASE 


29 3 


0129 












0130 


X*A 


MVN 


1 1RASE 


173 +0 


1 


0131 




MVA 


2 2BASE 


93UABASE 


16 UA 


0132 




ADD 


1 21 


NLBASE 


34 BASE 


0133 




INFL 


BASE 


32 BASE 


32 


0134 




MVN 


BASE 


223IAX*WRK1 




013b 




MVN 


1 1C 


NLX*WRK1 


UN 


0136 




ADO 


2 6BASE 


183 BASE 


223 +& 


0137 






SRiSF 

fc. ^ W r ' w 1- 


183 +A 


13 


0138 




DEC 


1 52 


NL. + A 


13 


0139 


• A 


SDE 


16 1X*Z-B 


BASE 




0140 




GTR 


* 


26 




0141 




MVN 


1 ID 


NLX*WRK1 


UN 


0142 




INFL 


BASE 


34 BASE 


36 


0143 




M V N 


BASE 


?83IAX*WRK? 





SET SENSE SWITC 
RETURN TU PROGR 



FIND CHAINED A- 



FIND CHAINED B- 



SET PROPER OP-C 
STORE 1ND* FLD 
36 ADO 1 TO B-FIEL 

STORE A-FILLD 
SET PLUS SIGN 
12 FIND A-FIELD LS 



IS A-FLD LSD SI 
BRANCH IF NOT 
SET MINUS SIGN 

STORE B-FIEtD 
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0144 


MVN 


1 


1C 




NLX*WRK2 


UN 


SET PLUS SIGN 


0145 


ADD 


2 


6BASE 


203 BASE 


283 +B 


12 FIND B-FIELD LS 


0146 


INC 


2 


5BASE 


203 +B 


13 




0147 


DEC 


1 


52 




NL + B 


13 




0148 , 


B SDE 


16 


1X*Z-B 




BASE 




IS B-FLD LSD SI 


0149 


GTR 




* 


26 


i 




BRANCH IF NOT 


0150 
0151 


MVN 


1 


10 




NLX*WRK2 


UN 


SET MINUS SIGN 


0152 


CPA 


1 


1 




ALBASE 


283IA 


TEST FOR MSD BL 


0153 


NEQ 




* 


26 






BRANCH IF NOT 


0154 


MVA 


1 


10 




ALBASE 


283IA 


REPLACE WITH ZE 


0155 


MVN 


5 


6BASE 


293 * 


30 


FIND OVERFLOW Z 


0156 .( 


; AND 


1 


17 




NLBASE 


X*OFLS 


STORE OVERFLOW 


0157 


BOT 


0110BASE 


163 




TEST FOR ZERO-A 


0158 


NEQ 




+ Q 








BRANCH IF NOT 


0159 


MVN 


1 







NLX+WRK2 




SET B-WORK-AREA 


0160 


MVN 


1 


17 




NLX*OFLS 




CLEAR OVERFLOW 


0161 


INFL 




BASE 


32 


BASE 


36 




0162 ,[ 


) INC 




X*WRK1 




X*WRK2 




PERFORM ADD OR 


0163 


INFL 




BASE 


34 


BASE 


34 




0164 


MVN 




X*WRK2 


2 


UNBASE 


283IA 


STORE RESULT IN 


0165 
















0166 


MVN 


5 


6-8 


13 


* 


30 


FIND B-LSD ZONE 


0167 


MVN 


1 


1X*WRK2 




UNBASE 




STORE RESULT SI 


0168 


OEC 


1 


1X*WRK2 


1 


UNX*OFLS 




SET STORED OVER 


0169 


ORR 


1 


1C 




NLX*OFLS 


-C 


12 IARESTORE OVERFLO 


0170 


ORR 


1 


1X*WRK2 


1 


UNX*OFL 


1 X*OFL 


1 SET OVERFLOW TO 


0171 


EXT 












ROUTINE EXIT 


0172* 
















0173* 
















0174* 
















0175* 
















0176* 
















0177* 
















0178* 
















0179* 
















0180* 
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0181* 
0182* 

0183* 

0184* 

0185* 

0186* 

0187* 

0188* 

0189* 

0190* 

0191* 

0192* 

0193* 

0194* 

0195* 

0196* 

0197* 

0198* 

0199* 

0200* 

0201 

0202 HALT ROUTINE 

0203 

0204 

0205 X*H SUB 2 512 NLBASE 13 X.HAU 8 MOVE HALT LOC T 

0206 DISP13 X*HALT DISPLAY HALT 

0207 ACPT 2 X*ACPT ACCEPT REPLY 

. . __- Hi «j.»*»rs-r TS IT OS 

0208 CPA £ *U3 "U'^ri -- - 

+A BRANCH IF NOT 



0209 NEQ 

0210 STOP 

0211 *A EXT 
0212* 

0213* 
0214* 
0215* 
0216* 
0217* 



STOP RUN 



nrtiioKj t n ODnr.D 
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0218* 
0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232* 

0233* 

0234* 

0235* 

0236* 

0237* 

0238* 

0239* 

02«0 

0241 

0242 

0243 

0244 

0245* 

0246* 

0247* 

0248* 

0249* 

0250 

0251 

0252 

0253 

0254 



X*HALTCNST 
X*ACPTCNST 
X*0FLSCNST 
X*0FL CNST 
X*CH12CNST 
X*CT0GCNST 
X*Z-N0CNST 
X*Z-A CNST 
X*ZZ CNST 
CNST 
CNST 
X*Z-ABEQIV 
X*Z-B CNST 



13UA 

2UA 

1UN 

3UN 

3UN 

1UN 
16UA 
16UA 

2UN 

2UN 
15UA 
17X*ZZ 
16UA 



HALT AT 



UA 



1234567890 #0J>> 
/STUVWXYZ, **]"#* 
HE 
CO 

ABCDEFGHH,[(<* 
i 

JKLMNOPQR-x$*)J< 



COMPARE SUBROUTINE 



X*CCHNDEC 2 5BASE 

DEC 2 5BASE 

X*CHCNDEC 2 5BASE 

DEC 2 5BASE 



163 


BASE 


213 


163 


BASE 


213 


183 


BASE 


273 


183 


BASE 


273 



STORED OVERFLOW 
OVERFLOW TOGGLE 
CHANNEL 12 BOOL 
COMPARISON INDI 
NO-ZONE CHARACT 
A-ZONE CHARACT 



AB-ZONE CHARACT 
B-ZONE CHARACT 



ADJUST A ADDRES 
FULL CHAIN. 
ADJUST B ADORES 
FULL OH HALF CH 



0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264* 

0265* 

0266* 

0267* 

0268* 

0269* 



X*C 



CPN 

GTR 

MVN 

INFL 

CPA 

GTR 

LSS 

MVN 

EXT 



2 2BASE 

+ H 
2 2BASE 

BASE 

BASE 

*n 

♦ L 
1 12 



+183 BASE +163 



♦163 BASE 
+32 BASE 
+2631ABASE 



+ 32 
♦ 32 
+203IA 



NLX*CT0G 
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B LENGTH VS A L 
BRANCH IF B > A 
SET INDIRECT Ft 
LENGTH AT ADORE 
COMPARE A • 8 F 
TEST FOR B > A 
TEST FOR B < A 
SET COMPARISON 
EXIT COMPARE 



0271* 

0272* 

0273* 

0274* 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0282 

0283 

0284 

nnaK. 

0286 

0287* 

0288* 

0289* 

0290* 

0291* 



BRANCH-CHARACTER-EQUAL SUBROUTINE 



X*XCHNDEC I 52 



NLBASE +253 



X*X CPA 1 1BASE +243IABASE ♦ 83UA 
GTR +H 
LSS +L 



UWN 1 lO 



Nl y*CTOG 



EXT 



BASE +183IA 



ADJUST CHAINED 

B-FIELD VS D-CH 
TEST B-FIELD FO 
TESf B-FIELD FO 
B-FIELD IS EOUA 
EXIT TO BRANCH- 
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0292* 

0293* 

0294* 

0295* 

0296* 

0297 

0298 

0299 

0300 

0301* 

0302* 

0303* 

0304* 

0305* 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321* 

0322* 

0323* 

0324* 

0325* 

0326* 

0327* 

0328* 



»H 



X*M 



MVN 1 11 

EXT 

MVN 1 14 

EXT 



NLX*CT0G 
NlX*CT0f, 



SET COMPARISON 
EXIT WITHOUT BR 
SET COMPARISON 
EXIT WITHOUT BR 



SUBROUTINE TO MOVE CHARACTERS TO RECORD MARK 



MVN 

SOE 

GTR 

MVN 

INC 

INFL 

MVA 

INC 

INC 



1 40 
200#* 
♦ A 
1 11 
1 31 
BASE 
BASE 
1 32 
I 32 
BOT 0110BASE 
NEQ X*M 
EXT 



NLBASE 
ALBASE 

NLBASE 

NLBASE 

♦38 BASE 

+163IABASE 

NLBASE 

NLBASE 

+ 36 



+ 36 
+ 1631 A 

+ 36 
+ 37 
+ 38 

+223IA 
+ 173 
+ 233 



RESET GM FLAG A 
SCAN FOR REC/M 
BRANCH IF NOT F 
SET REC/m BOOLE 
AOU 1 TO INFL 
MOVE LENGTH AT 
MOVE A-FLD TO B 
ADVANCE A-AODRE 
ADVANCE B-ADDRE 
WAS REC/M FOUND 
REPEAT IF NOT 
RETURN TO MAIN 
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0329* 

0330* 

0331 

0332 

0333 MOVE SUBROUTINE (MOVES OVER 100) 

0334 

0335 

0336* 

0337* 

0338* 

0339* 

0340 X*N MVN 2 299 NLBASE 32 SET LENGTH TO 9 

0341 ,A MVN 5 2BASE 173 BASE 32 STORE SIZE IF N 

0342 INFL BASE 32 BASE 32 MOVE SIZE AT AO 

0343 MVA BASE 223IABASE 283IA MOVE UP TO 99 C 

0344 INC 3 5198 NLBASE 233 ADVANCE A-ADORE 

0345 INC 3 5198 NLBASE 293 ADVANCE B-ADDRE 

0346 DEC 2 5BASE 32 BASE 173 SUB NO MOVED FR 

0347 GTR -A REPEAT IF RESUL 

0348 EXT EXIT MOVE ROUTI 
0349* 

0350* 
0351* 
0352* 
0353* 
0354* 
0355* 

V •# ■» W — 

0357* 
0358* 

0359* 

0360* 

0361 MOVE CHARACTERS AND SUPPRESS ZEROS SUBROUTINE 

0362 

0363 X*Z MVN 2 2BASE +163UNBASE +36 UN SET LENGTH OF A 

0364 INFL BASE +36 

0365 .A MVA 1 ALBASE +263IA SET B'FIELD TO 



0366 


INFL 








BASE 


+ 36 


0367 


SOU 


2 


0* 




ALBASE 


+203IA 


0368 


GTR 




+ X 








0369 


INC 


2 


5BASE 


♦ 38 


UNBASE 


♦213UN 


0370 


INC 


2 


5BASE 


+ 38 


UNBASE 


+213UN 


0371 


INC 


2 


5BASE 


+ 38 


UNBASE 


+273UN 


0372 


INC 


2 


5BASE 


+ 38 


UNBASE 


+273UN 


0373 


DEC 


2 


2BASE 


+ 38 


UNBASE 


+ 36 UN 


03f4 


INFL 




BASE 


+ 36 


BASE 


+ 36 


0375 


MVA 




BASE 


+203IABASE 


+2631A 


0376 


INFL 








BASE 


♦ 36 


0377 


SDE 


1 


• 




ALBASE 


+203IA 


03f8 


GTR 




+ Y 








03f9 


INC 


1 


21 




NLBASE 


♦ 38 UN 


0380 


CPN 


2 


2BASE 


+ 36 


UNBASE 


+ 38 UN 


0381 


EQL 




+ X 








0382 


INC 


2 


5BASE 


+ 38 


UNBASE 


+213UN 


0383 


INC 


2 


5BASE 


+ 38 


UNBASE 


+213UN 


0384 


INC 


2 


5BASE 


+ 38 


UNBASE 


+273UN 


0385 


INC 


2 


5BASE 


♦ 38 


UNBASE 


♦273UN 


0386 


DEC 


2 


2BASE 


♦ 38 


UNBASE 


+ 36 UN 


0387 


BUN 




-A 








0388 


,Y CPN 


1 


21 




NLBASE 


+ 36 UN 


0389 


EQL 




+ Z 








0390 


DEC 


1 


21 




NLBASE 


+ 36 


0391 


INC 


2 


5BASE 


+ 36 


UNBASE 


♦273UN 


0392 


INC 


2 


5BASE 


+ 36 


UNBASE 


+273UN 


03V3 


.Z MVN 


1 


1BASE 


+263IABASE 


+263IA 


0394 


.X EXT 












0395* 














0396* 














0397* 














0398 


X*REPLCNST 




4UA 




*> 




0399 


X*FLOTCNST 




1UA 








0400 


X*FILLCNST 




1UA 








0401 














0402 






MOVE I 


CHARA 


CTERS A! 


\ID FDIT 
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SCAN A COUNTING 
NUMBER OF LEAOI 
IF ALL ZEROS - 
ADJUST BOTH THE 
B-ADDRLSSES BY 
NUMBER Or LEADI 
ALSO ADJUST SIZ 
BOTH OPERANDS. 
MOVE NON-ZERO P 
OF A TO B RIGHT 
SCAN FUR . TO R 
ZERO SUPPERSION 
IF NOT* EXIT. 
DETERMINE IF PE 
LAST CHAHACTER, 
IT IS* EXIT, 
ADJUST ADDRESSE 
POINT PAST THE 
AND SET SIZE TO 
NUMBER OF REMAI 
CHARACTERS, 

IF ADDRESSES AR 
ALREADY POINTIN 
LAST CHARACTER 
FIELD* ADJUST T 
DO SO AND REMOV 
SIGN 
JUSTIFIED AND E 



REPLACEABLE CHA 
FLOATING $ INDI 
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0403 












04Q4 


X*E 


MVN : 


1212BASE 


4203UNBASE 


♦323UN 


0405 




INC 


2 5BASE 


+163UNBASE 


+333UN 


0406 




INC 


2 5BASE 


+163UNBASE 


♦333UN 


0407 




DEC 


1 52 


NLBASE 


+333UN 


0406 




INC 


2 5BASE 


4i83UNBASE 


+393UN 


0409 




INC 


2 5BASE 


+183UNBASE 


4393UN 


0410 




DEC 


1 52 


NLBASE 


+393UN 


0411 




CPA 


1 1- 


ALBASE 


♦383IA 


0412 




NEQ 


+ A 






0413 




MVN 


1 21 


NLBASE 


436 UN 


0414 




BUN 


♦ 8 






0415 


.A 


DEC 


1 52 


NLBASE 


♦393UN 


0416 




CPA 


2 2CR 


ALBASE 


+383IA 


0417 




NEQ 


+ D 






Akin 

u4*o 




kj XI fe.1 




kit o a cr 

ii^, on v»u 


*3& UN 


0419 


* B 


SDE 


16 1X*Z-B 


BASE 


+323IA 


0420 




LEQ 


+ C 






0421 




INFL 




BASE 


♦ 36 


0422 




MVA 


1 


ALBASE 


+383IA 


0423 


.C 


DEC 


1 52 


NLBASE 


+393UN 


0424 




BUN 


+ H 






0425 


»D 


INC 


1 52 


NLBASE 


+393UN 


0426 




CPA 


1 1- 


ALBASE 


+263IA 


0427 




NEQ 


+ E 






0428 




MVN 


1 21 


NLBASE 


+ 36 UN 


0429 




BUN 


♦ F 






0430 


»E 


CPA 


2 2CR 


ALBASE 


+263IA 


0431 




NEQ 


♦ H 






0432 




MVN 


1 22 


NLBASE 


+ 36 UN 


0433 


* r 


SDE 


* £ « w j. "7 _ U 

ID l A»t _ D 


pier 


+323IA 


0434 




LEQ 


4G 






0435 




INFL 




BASE 


436 


0436 




MVA 


1 


ALBASE 


4263IA 


0437 


• G 


INC 


2 5BASE 


436 UNBASE 


4273UN 


0438 




INC 


2 5BASE 


•t-36 UNBASE 


4273UN 


0439 


.H 


CPA 


1 1& 


ALBASE 


+383IA 



CREATE TWO ADDR 
IN THE STACK* 
POINTING TO THE 
THE A FIELD* TH 
POINTING TO THE 
THE B FIELD. 

DETERMINE IF ED 
CONTAINS TRAILI 
OR CR SYMBOLS. 
IF A-FIELD IS N 
NEGATIVE* BLANK 
SYMBOLS, 



DETERMINE IF ED 
CONTAINS LEADIN 
OR CR SYMBOLS. 
IF A-FIELD IS N 
NEGATIVE* BLANK 
SYMBOLS. 



ADJUST ADDRESS 
SYMBOL LOCATION 

•tf /»ii»_wfie T Ail irs 



0440 


NEQ 




+ 1 








0441 


MVA 


1 


1 




AL8ASE 


+383IA 


0442 


DEC 


1 


52 




NLBASE 


+393UN 


0443 


BUN 




-H 








0444 t! 


[ CPA 


1 


10 




ALBASE 


+383IA 


0445 


NEQ 




+ J 








0446 


MVN 


2 


2BASE 


+163UNBASE 


♦ 36 UN 


0447 


INFL 








BASE 


+ 36 


0448 


CPN 


1 







ALBASE 


+203IA 


0449 


NEQ 




♦ J 








0450 


MVN 


2 


2BASE 


+183UN8ASE 


+ 36 UN 


0451 


INFL 








BASE 


+ 36 


0452 


MVA 


1 






ALBASE 


+263IA 


0453 


BUN 




♦ X 








0454 ,J MVN 


6 


6200000 


NLBASE 


+443UN 


0455 ,K CPA 


1 


10 




ALBASE 


+383IA 


0456 


NEQ 




+ L 








0457 


CPN 


1 


50 




NLBASE 


+453UN 


0458 


NEQ 




+ L 








0459 


MVN 


6 


6BASE 


+383UNBASE 


+443UN 


0460 


DEC 


1 


52 




NLBASE 


+393UN 


0461 


CPA 


1 


1* 




ALBASE 


+383IA 


0462 


NEQ 




* 


+ 26 






0463 


MVA 


1 


1* 




ALX*FILL 


0464 


CPA 


1 


IS 




ALBASE 


+383IA 


0465 


NEQ 




* 


+ 26 






0466 


MVA 


1 


11 




ALX*FL0T 


0467 


INC 


1 


52 




NLBASE 


+393UN 


0468 tl SDE 


3 


10 * 




ALBASE 


+383IA 


0469 


LEQ 




+ N 








0470 


CPA 


1 


It 




ALBASE 


+383IA 


0471 


NEQ 




♦ M 








0472 


MVA 


1 


1 




ALBASE 


+383IA 


0473 


BUN 




+ M 








0474 ,1 


t MVN 


1 


1BASE 


+323IABASE 


+383IA 


0475 


DEC 


1 


52 




NLBASE 


♦333UN 


0476 tM DEC 


1 


52 




NLBASE 


+393UN 
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= & 

IF SO* BLANK IT 
ADJUST ENDING A 

DETERMINE IF RI 
CHARACTER OF ED 
IS ZERO, IF SO 
A-FIELD = ZERO, 
IF A-FIELD s ZE 
SPACES TO B-FIE 
GO TO EXIT, 



SET UP ZERO ADD 

TEST- MASK CHAR 

s ZERO, 

IS THIS RIGHT-M 

ZERO, IF S0# S 

END SUPR ADORES 

LOOK AT PREVIQU 

IS IT = * 

IF S0# 

SET FILL TO * 

IS PREV CHAR S, 

IF SO* 

SET S FLOAT IND 

ADDR TO CURRENT 

MASK CHAR e Q#* 



DECREASE A-ADDR 
DECREASE B-ADDR 
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0477 CPN 5 5BASE +393UNBASE +273UN IS B-FIELO EXHA 

0478 LSS + P 

0479 CPN 5 5BASE +333UNBASE +213UN IS A-FIELD EXHA 

0480 GEQ -K 

0481 ,P SOE 4 1X*REPL BASE +263IA B-CHAR ' p * 

0482 GTR +Q 

0483 MVA 1 1X*FILL BASE +263IA REPLACE wITH FI 

0484 INC 1 52 NLBASE +273UN INCREMENT B-AOD 

0485 CPA 1 1, ALBASE +263IA MASK CHAR = DEC 

0486 EOL +Q IF SO, END. 

0487 CPN 5 58ASE +273UNBASE +453UN END OF ZERO SUP 

0488 NEQ -P 

0489 ,Q CPA 1 11 ALX*FLOT FLOATING DOLLAR 

0490 NEQ +X 

0491 DEC 1 52 NLBASE +273UN REDUCE B-ADDRES 

njiQn kill a « * * a t n a c r- jio/ 5T » TMCiroTn r i i I * o c 

0493 .X MVA 2 20 ALX*FL0T RESET INDICATOR 

0494 EXT 
0495 

0496* 
0497* 
0498* 
0499* 
0500* 
0501* 
0502* 
0503* 
0504* 
0505* 
0506 

ncn7 nnryT nniiTIur rnn nTurD TUlu CTiir>ir s CDA/»Tii(: 

w3vi rnirii nuuiimc. run uintn i nnm jjihuul jrnvin« 

0508 

0509 X*PRT EQIV 4X*P 26 PAPER MOTION VA 

0510* ****F0R BASIC PROGRAMS, CHANGE ABOVE INCREMENT TO 24 

0511 X*E0P MVN 1 11 NLX*CH12 1 SET CHAN-12 BOO 

0512 X*P WRIT 1 F*PRN1 X*E0P WRITE UN LINE P 

0513 MVN 4 40100 NLX*PRT RESTORE TO SING 



0514 

0515* 

0516* 

0517* 

0518* 

0519* 

0520* 

0521* 

0522* 

0523* 

0524* 

0525* 

0526* 

0527* 

0528* 

0529* 

0530* 

0531 

0532 

0533 

0534 

0535* 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 
0550* 



EXT 
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RETURN TO PROGR 



X*PM 



PRINT ROUTINE TO HANDLE TRIPLE SPACING 

EOIV 4X*PRNT 26 PAPER MOTION VA 

****rOR BASIC PROGRAMS* CHANGE ABOVE INCREMENT TO 24 



X*PRT CNST 4UN 
X*P MVN 3 4X*PRT 
X*PRNTWRIT 1 F*PRN1 
BOT 0110X*Pf?T 
NEQ +P 
X*SKIPP0SN 1 F*PRNi 
.P MVN 4 40100 
EXT 



X*E0P MVN 
BUN 



1 11 

X*PRNT 



X*EOS MVN 1 11 

BUN X*SKIP 



OiOO 
X*PM 
X*EOP 



X*EOS 
NLX*PRT 



NLX*CH12 1 



NLX*CH12 1 



P/M VARIABLE ST 
SET VARIABLE IN 
WRITE ON LINE P 
TEST FOR 3RD SP 
BRANCH IF NOT N 
SINGLE SPACE PR 
RESTORE TO SING 
RETURN TO PRQGR 

SET CHAN-12 BOO 
GO BACK TO PRIN 

SET CHAN-12 BOO 
GO BACK TO SPAC 
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0551* 
















0552* 
















0553* 
















0554* 
















0555* 
















0556* 
















0557* 
















0558* 
















0559* 
















0560* 
















0561 
















0562 






MULTIPLY SUBROUTINE 






0563 
















0564 X*U MVA 


2 


2BASE 


63UABASE 


16 UA 




STURE A AND B S 


0565 


A00 


1 


21 


NLBASE 


34 BASE 


36 


B-HELD SIZE + 


0566 


INFL 




BASE 


32 BASE 


32 






056 7 


MVN 




BASE 


2431AX*WRK1 






STURE A-FIELD 


0568 


MVN 


1 


1C 


NLX*WRK1 


UN 




SET A-FULD PLU 


0569 


ADO 


2 


6BASE 


163 BASE 


2«3 +A 


12 


FIND 


05T0 


INC 


? 


5BASE 


163 +A 


13 




A-FIELI) 


0571 


DEC 


1 


52 


Nl. + A 


13 




LSD 


0572 .A 


SDE 


16 


1X*Z-B 


BASE 






IS A-FLD LSD SI 


05f3 


CiTR 




* 


26 






BRANCH IF NOT 


0574 


MVN 


1 


ID 


NLX*WRK1 


UN 




SET A-FLD MINUS 


0575 


INFL 




BASE 


34 BASE 


36 






0576 


MVN 




BASE 


303IAX*HRK2 






STORE B-FIELD 


0577 


MVN 


1 


1C 


NLX*WRK? 


UN 




SET B-FILLD PLU 


nc r a 

V J I V 




c 


< r> a c r 
u o n o r. 


< o i oicr 

1VJ OHdb 






nun 


0579 


INC 


2 


58ASE 


183 4-B 


13 




B-FIELO 


0580 


DEC 


1 

* 


52 


NL + S 


13 




LSD 


0581 .E 


! SDE 


16 


lX*Z-B 


BASE 






IS B-FLO LSD Si 


0582 


GTR 




* 


26 






BRANCH IF NOT 


0583 


MVN 


1 


ID 


NLX*WRK2 


UN 




SET B-FLD MINUS 


0584 


INFL 




BASE 


32 BASE 


36 






0585 


MPY 




X*WRKl 


X*WRK2 


X*WRK3 




PERFORM MULTIPL 


0586 


ADD 


4 


5BASE 


203 BASE 


313 +D 


13 


FIND 


0587 


INC 


4 


5BASE 


203 *D 


13 




RESULT-FIELD 



0588 
0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600* 

0601* 

0602* 

0603* 

0604* 

0605* 

0606* 

0607* 

0608* 

0609* 

0610* 

0611* 

0612* 

0613* 

0614* 

0615* 

0616* 

0617* 

0618* 

0619* 

0620* 

0621* 

0622* 

0623* 

0624* 



DEC 
MVN 

MVN 

INFL 

MVN 

SUB 

LEQ 

INC 

INFL 

MVN 

MVN 

EXT 



1 52 
1 40 



2BASE 

BASE 

X*WR«3 
4100 

♦ 
32 

BASE 



NL + 
NLBASE 

203 BASE 

32 BASF. 

1 UNBASE 

NLBASE 

NLBASE 
34 BASE 



X*WRK3101 UNBASE 
1 1X*WRK3 UNBASE 



13 
32 

32 
32 

303IA 
203 BASE 

313 

34 

303IA 
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LSO 
SET RESULT SIZE 

STORE RESULT SZ 

MOVE 1ST 100 OR 
32 FIND EXCESS OVE 
BRANCH IF NOT > 
INC RES-FLO BY 

MOVE 2ND PART 
STORE RESULT SI 
RETURN TO PROGR 
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062b* 








0626* 








0627* 








0628* 








0629* 








0630* 








0631 








0632 






DIVIDE 


0633 








0634 


XMNVDCNST 


23UA 


0635 


x*o sde ; 


3397X*Z-AB 


0636 


LEQ 




+ A 


0637 


.D 0ISP23 


X*INVD 


0638 


STOP 






0639 








0640 


,A INC 


1 


21 


0641 


MVR 


2 


2BASE 


0642 


INC 


2 


2BASE 


0643 


OFL 




-D 


0644 


MVN 


2 


2BASE 


0645 


DEC 


2 


5BASE 


0646 


DEC 


2 


5BASE 


0647 


INFL 




BASE 


0648 


MVN 




BASE 


0649 


MVN 


1 


1C 


0650 


ADD 


2 


6BASE 


0651 


INC 


2 


5BASE 




V K- V 


4 




0653 


♦ 8 SDE 


16 


1X*Z-B 


0654 


GTR 




* 


0655 


MVN 


1 


ID 


0656 


INFL 




BASE 


0657 


MVN 




BASE 


0658 


MVN 


1 


1C 


0659 


ADD 


?. 


6BASE 


0660 


INC 


? 


5BASE 


0661 


DEC 


1 


52 



SUBROUTINE 



DS-ED — INVALID OIVIDL 
BASE 263IA 



38 
183 



NLHA&t 
BASE 
BASE 



163 BASE 
183 BASE 
183 BASE 
32 BASE 
203IAX*WRK1 
NLX*WRK1 
32 BASE 
32 +B 

Ml MO 

'* Km w *-? 

BASE 
26 

NLX*WRK! 
34 BASE 
?63IAX*WRK? 

NLX*WRK2 
34 BASE 
34 +C 

NL + C 



34 
34 

32 
273 
273 
32 

UN 
203 +9 
13 



UN 



34 



UN 



263 
13 

13 



+ C 



12 



12 



FIND B-FIELD LS 
BRANCH IF FOUND 
DISPLAY INVALID 
ABQRT--END OF J 

SET PROPER I NO i 
FIELD LENGTHS 
DIVISOR* DIVI 
TOTAL B-FIELD 

FIND BEGINNING 
UF TUTAL B-FI 

STORE A-FIELD 
SET A-FULD SIG 
FIND 

A-FILLD 

LSD ADDRESS 
IS A-FIELD SIGN 
BRANCH IF NOT 
SET A-FItLD SIG 

STURE B-FIELD 
SET B-FIELD SIG 
FIND 

B-FIELD 

LSD ADDRESS 
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0662 


tC 


SOE 


16 


1X*Z-B 




BASE 




IS B-FIELD SIGN 


0663 




GTR 




* 


26 






BRANCH IF NOT 


0664 




MVN 


1 


ID 




NLX*WRK2 


UN 


SET B-FIELO SIG 


0665 




INFL 




BASE 


32 


BASE 


34 




0666 




DIV 




X*WRK1 




X*WRK2 


X*WRK3 


PERFORM DIVIDE 


0667 




OFL 




+ 








BRANCH ON OVERF 


0668 




INFL 




BASE 


34 


BASE 


34 




0669 




MVN 




X*WRK2 


1 


UNBASE 


263IA 


STORE REMAINDER 


0670 




MVN 


5 


6-C 


13 


♦ Q 


12 


FIND REMAINDER 


0671 


»D 


MVN 


1 


1X*WRK2 




UNBASE 




SET SIGN OF REM 


0672 




INFL 




BASE 


36 


BASE 


36 




0673 




MVN 




X*WRK3 


2 


UNBASE 


263IA 


STORE QUOTIENT 


0674 




ADD 


2 


5BASE 


36 


BASE 


273 +E 13 


FIND 


0675 




INC 


2 


5BASE 


36 


♦ E 


13 


QUOTIENT 


0676 




DEC 


1 


52 




NL + E 


13 


LSD ADDRESS 


0677 


• E 


MVN 


1 


1X*WRK3 




UNBASE 




SET SIGN OF QUO 


0678 




EXT 












NORMAL EXIT 


0679 


















0660 


,0 


MVN 


1 


11 




NLX*OFL 


I 


SET OVERFLOW TO 


0681 




EXT 












EXIT AFTER OVER 


0682* 


















0663* 


















0664* 


















0685* 


















0666* 


















0687* 


















0688* 


















0689* 


















0690* 


















0691* 


















0692* 


















0693* 


















0694* 


















0695* 


















0696* 


















0697* 


















0698* 
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0699* 
0700* 
0701 

0702 CONVERT 3-CHARACTER ADDRESS TO 5-DIGIT ADDRESS 
0703 

0704 X*CEPTCNST 6UN 616D4E 1401 EXCEPTION 

0705 X*RPL CNST 6UN E1E0C0 3500 REPLACEMEN 

0706 X*ADR CNST 5UN RESULTING 5-DIG 

0707 X*N0T1CNST 1UN ZONE W/A 1 

0708 X*N0T2CNST 1UN ZONE W/A 2 

0709 X*N0T3CNST 1UN ZONE W/A 3 

0710 X*CHARCNST 3UA 1401 3-CHAR ADD 
0711 

0712 X*CNV MVA 3 3BASE 163IAX*CHAR STURE 3-CHAR AO 

0713 MVN 3 5X*CHAR X*ADR STORE PORTION < 

0714 ,A SOE 1 3X*CHAR X*CEPT UA TEST FOR EXCEPT 

0715 GTR +B BRANCH IF NONE 

0716 MVN 6 5X*RPL LL + A 7 SET ADR OF REPL 

0717 INC 1 5BASE 39 +A 7 INCREMENT INTO 

0718 INC 1 5BASE 39 +A 7 REPLACEMENT T 

0719 ,A MVA 1 1X*RPL UAX*CHAR REPLACE EXCEPTI 

0720 #B NOT 1 1F27 NLX*CHAR UNX*N0T3 CONVERT ZONE MO 

0721 MVN 2 2X*N0T2 X*N0T1 STORE MODIFIED 

0722 MVA 1 1X*CHAR 2 X*CHAR SET UP LSD CHAR 

0723 MVL 2 -B 7 +C «-C SET SWITCH TO R 

0724 ,C NOP -A REPEAT FUR LSD 

0725 INC 1 2X*N0T1 X*ADR ADO MODIFIER < 

0726 MPY 1 14 NLX*N0T2 -B 9 FIND 4000 MOD 

0727 INC 2 2-B 9 X*ADR ADD 4000 MOD 

0728 EXT RETURN EXIT 
0729* 

0730* 
0731* 
0732* 
0733* 
0734* 
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0736* 
0737* 

0738* 

0739* 

0740* 

0741 

0742 DETERMINE CORRECT 83500 INDEX REGISTER VALUE 

0743 

0744 X*J MVN 2 2BASE 183 BASE 32 STORE IND A-FIE 

0745 INFL BASE 32 

0746 MVN 5BASE 203IAX*A0R STORE A-FULD 

0747 BZT 0130BASE 193 IS A-FIELD 3 CH 

0748 EQL +B BRANCH IF NOT 

0749 X*I MVA 3 3BASE 203IAX*CHAR STORE 3-CHAR AO 

0750 NTR X*CNV 18 CONVERT TO 5-DI 

0751 .B INC 5 5X*ADR X*AOR DOUBLE IT 

0752 MVN 2 2BASE 163 +C OP IS INC* DEC* 

0753 .C INC 5 7X*ADR BASE 263IA PUT VALUE INTO 

0754 EXT RETURN EXIT 
0755* 

0756* 

0757* 

0758* 

0759* 

0760* 

0761* 

0762* 

0763* 

0764* 

0765* 

0766* 

0767* 

0768* 

0769* 

0770* 

07M 

0772 POSITION PRINTER IF NO TRIPLE SPACING 
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0773 
0774 

0775 

0776 

0777 

0778 

0779 

0780* 

0781* 

0782* 

0783* 

0784* 

0785* 

0786* 

0787* 

0788* 

0789* 

0790* 

0791 

0792 

0793 

0794 

0795 

0796 

0797 

0798 

0799 

0800 

0801 

0802 

0803 

0804 

0805 

0806* 

0807* 

0808* 

0809* 



X*P0SNMVN 3 4BASE 173 + P 27 
«P POSN 1 F*PRN1 X*E0S1 
EXT 



X*E0S1MVN 1 ii 
BUN -P 



NLX*CH12 1 



SET PRINTER VAR 
SKIP OR SPACE P 
RETURN EXIT 

SET CHANNEL 12 
GO BACK TO POSN 



POSITION PRINTER IF TRIPLE SPACING IS REQUIRED 



X*POSNMVN 3 4BASE 173 +P 27 
•P POSN 1 F*PRN1 X*E0S1 

BOT 0J10BASE 163 

NEQ *T 
,Q POSN 1 F*PRN1 X*E0S2 
,T EXT 



X*E0S1MVN 1 11 

BUN -P 

X*E0S2MVN 1 11 
BUN -Q 



NLX*CH12 1 



NLX*CH12 1 



SET PRINTER VAR 
SINGLE OR DOUBL 
IS 3RD SPACE NE 
BRANCH IF NOT 
SINGLE SPACE PR 
RETURN EXIT 

SET CHANNEL 12 
GO BACK TQ 1ST 

SET CHANNEL 12 
BO BACK TO 2ND 
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0810* 
0811* 

0812* 
0813* 
0814* 
0815* 
0816* 
0817* 
0818* 
0819* 
0820* 

0821 ST0RE1CNST 2UN SUM OF A & B DE 

0822 ST0RE2CNST 2UN C-FIELO DECIMAL 

0823 ST0RE3CNST 7UN C-FIELD LENGTH 

0824 ST0RE4CNST 2SN PRODUCT SCALING 

0825 SAVX*1CNST 16UN 
0826* 

0827* 
0828* 
0829* 
0830* 
0831* 
0832* 
0833* 
0834* 
0835* 
0836* 
0837* 
0838* 
0839* 
0840* 

0841 MACRAODR $A> $Bt $Ct SD> $E> IF > SG> $H, 

0842 SI, SJ, SK> $L* SM 

0843 MEQLTYPEOMIT SK MSTART 

0844 MEQLTYPENULL SK MSTART 

0845 M8UN MERMES 

0847 MEQLTYPENULL SM MN0P1 
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0643 


ME0LTYPEOMIT 




SM 




MNOPl 


0849 


MVN 


2 


203 




NLASCIX) 




UN 


0850 


MNOPl MNOP 














0851 


MVN 1616BASE 


8 


SAVXM 






0852 


MVN 


i 







NLX*WRK1 






0653 


MVN 


i 







NLX*WRK2 






0854 


MVN 




2SH 




BASE 


16 




0855 


MVN 


2 


2BASE 


16 


BASE 


18 




0656 


MVN 




2SB 




BASE 




UN 


0857 


INFL 








BASE 




UN 


0858 


MVA 




SA 




X*WRK3 






0859 


MVN 




2$E 




BASE 


2 


UN 


0860 


INFL 








BASE 


2 


UN 


0861 


MVA 




SO 




X*WRK2 






0862 


DEC 




2$C 




BASE 




UN 


no Jt i 

v w w ** 


ULV 








a *cr 


o 


Mm 

** it 


0664 


INC 




2SI 




BASE 




UN 


0865 


INC 




2SI 




BASE 


2 


UN 


0666 


MEQL' 


FYPELABEL 




SJ 




MLAB1 


0867 


INC 


1 


21 




NLBASE 




UN 


0868 


INC 


1 


21 




NLBASE 


2 


UN 


0869 


MLASi MNOP 














0870 


CPN 


2 


2BASE 




BASE 


2 




0871 


LSS 




* 


34 








0872 


MVN 


2 


2BASE 




UNBASE 


6 


UN 


0873 


BUN 




* 


26 








0874 


MVN 


2 


2BASE 


2 


UNBASE 


6 


UN 


0875 


INC 


1 


2! 




NLBASE 


6 


UN 


0876 


INFL 




BASE 




UNBASE 


6 


UN 


0877 


MVN 




X*WRK3 




X*WRK1 






HflTfl 

v w i O 


INFL 




BASE 


2 


iimq a cr 


i 
v 


UN 


0879 


MVN 




X*WRK2 




X*WRK3 






0880 


MEOLTYPENULL 




$L 




MLAB2 


0881 


MEQLTYPEQMIT 




SL 




MLAB2 


0882 


MVN 


1 


1C 




NLX*WRK1 




UN 


0883 


MVN 




SB 




1X1 






0864 


DEC 


i 


i 




NLIXi 







SAVE I XI & 1X2 
CLEAR W0RK1 TO 
CLEAR W0RK2 TO 



STORE A OPND SI 

INFL 

STORE A-OPND IN 

STORE B-OPNO SI 

INFL 

STORE B-OPND IN 

GET A INTEGER S 
rtt d luTrgrc s 

INC C-DECIM TO 
INC C-DECIM TO 

ADD 1 DIGIT PRE 
ADD 1 DIGIT PRE 

CPN A-SIZ TO B- 

BUN ON A < B 

MOVE A-SU TO B 

ELSE 

MOVE B-SIZ TO B 

ADO 1 DIGIT, OFL 

RIGHT JUSTIFY A 

RIGHT JUSTIFY B 



SET PLUS SIGN 
INDEX TO A FIEL 



0885 
0886 

0887 

0888 

0889 

0890 

0891 

0892 

0893 

0894 

0895 

0896 

0897 

0898 

0899 

0900 

0901 

0902 

0903 

0904 

0905 

0906 

0907 

0908 

0909 

0910 

0911 

0912 

0913 

0914 

0915 

0916 

0917 

0918 

0919 

0920* 

0921* 



INC 1X1 

SOE 16 1X*Z-B 
GTR * 

MVN 1 ID 

MVN 1 1C 



MVN 
DEC 
INC 



$E 

1 

1X1 



SOE 16 1X*Z-B 



GTR 
MVN 

MLA82 MNOP 
INFL 

ASUXHNC 



* 
! ID 



INC 
MLAB3 MNOP 
DEC 
MVN 
DEC 
GEQ 
MVN 

INFL 

AD(IX)MVN 



BASE 
X*WRK3 
MEQLTYPELABEL 
INFL 

1 5 



26 



26 



1X1 
SA 

NLX*WRK1 
NLX*WRK3 

1X1 
NLIX1 

1X1 

SD 

NLX*WRK3 



UN 
UN 



UN 



1 21 

2 7BASE 
2 7BASE 

AD(IX) 
210BASE 
BASE 
X*WRK1 
MEQLTYPEOMIT 
MEQLTYPENULL 
SUB 1 21 
INC 1X1 
MVN 1 1X*WRK1 
MLAB4 MNOP 

MVN 1616SAVXM 
MEXT 
MERMESMERR ILLEGAL 
MEND 



6 UNBASE 6 UN 
X*WRKt 

$J MLAB3 

BASE 6 UN 

NLX*WRK1 1 UN 

NLBASE 6 UN 
6 UNI XI 
16 1X1 



6 BASE 
16 BASE 
11UNSG 
SL 
SL 
NLBASE 

1X1 
UNSG 

BASE 



8 UN 
18 

MLAB4 
MLAB4 
18 UNBASE 

1UN 

8 UN 



14 
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SCAN FOR MINUS 
BUN IF PLUS 
SET MINUS SIGN 
REPEAT SIGN HAN 



INC OR DEC DEPE 
BUN IF NOT ROUN 

ROUND RESULT 

DEC 1 DIGITlOFL 
STURE RESULT SI 
DEC 1X1 BY C-F 
BUN ON RSLT Z C 
ZERO X1#ST0RE R 
INFL 

MOVE RESULT TO 
BUN IF SIGN HAN 
NOT REOUIREO 
INDEX TO C-FLD 
ADJUST FOR UA D 
TRANSFER SIGN 

RESET 1X1 & 1X2 



EDIT PARAMETERtADD-SUB MACRO 
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0922* 
0923* 

0924* 

0925* 

0926* 

0927* 

0928* 

0929* 

0930* 

0931* 

0932* 

0933* 

0934* 

0935 

0936 

0937 

0938 

0939 

0940 

0941* 

0942* 

0943* 

0944* 

0945* 

0946* 

0947* 

0948* 

0949* 

0950* 



M J-k C 4 . 



0952* 

0953* 

0954* 

0955* 

0956 

0957 

0958 



MACRSUBR$A> $B# $C> $0* SE> $F# $G> SH# $1* 

A00R $b,$B»$CttOftZ>$Ff$a»iH,$l$ 

SJ* SK# SL* 1 
MEXT 
MENO 



MACRMLTP *A# $B# $C» SD> SE> $F* *G» *H» 

$1* $J> $Kr SL 
MEQLTYPEOMIT SK MSTART 
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0959 


MEQLTYPENULL 




SK 




MSTART 




0960 


MBUN 




MERMES 












0961 


MSTARTMNOP 
















0962 


MVN 


1616BASE 


8 


UNSAVX*1 






SAVE 1X1 & 1X2 


0963 


MVN 


1 







NLX*WRK3 






CLEAR W0HK3 TO 


0964 


MVN 




2$3 




BASE 








0965 


MVN 




2SE 




BASE 


2 




STORE PARAMETER 


0966 


MVN 




2SH 




BASE 


16 




SET UP INFLS 


0967 


MVN 


2 


2BASE 


16 


BASE 


18 




STURE C SIZE TW 


0968 


MEQLTYPENULL 




SC 




MLA81 


BUN IF NO SCALI 


0969 


MEQLTYPEOMIT 




sc 




MLAB1 


REQUIRED 


0970 


MVN 




2$C 




STORE! 






STORE A OPND SC 


0971 


INC 




2$F 




STURE1 






INC BY B OPND S 


0972 


MVN 




241 




STQRE2 






STURE C OPND SC 


0973 


MLABt MNUP 
















0974 


INFL 




BASE 




BASE 








0975 


MVN 




$A 




X*WRK1 






STURE A OPND 


0976 


INFL 




BA5E 


2 


BASE 


2 






0977 


MVN 




$0 




X*WRK2 






STURE B UPNO 


0978 


MEQLTYPEOMIT 




$L 




MLAB2 


BUN IF NU SIGN 


0979 


MEQLTYPENULL 




SL 




MLAB2 


HANDLING REQUlR 


0980 


MVN 


1 


1C 




NLX*WRK1 


UN 




SET PLUS SIGN 


0981 


MVN 


2 


BASE 




1X1 






INDEX TO A FIEL 


0982 


DEC 


1 


1 




NLIX1 








0983 


INC 




1X1 




1X1 








0984 


soe : 


16 


1X*Z-B 




$A 


1 




IS A-FLD LSD SI 


0985 


GTR 




* 


26 








BRANCH IF NOT M 


0986 


MVN 


1 


ID 




NLX*WRK1 


UN 




SET MINUS SIGN 


0987 


MVN 


1 


1C 




NLX*WRK? 


UN 




REPEAT SIGN HAN 


0988 


MVN 


2 


BASE 


2 


1X1 








0989 


DEC 


1 


1 




NLIX1 








0990 


INC 




1X1 




1X1 








0991 


SDE 16 


1X*Z-B 




$0 


1 






0992 


GTR 




* 


26 










0993 


MVN 


1 


ID 




NLX*WRK? 


UN 






0994 


MLAB2 MNUP 
















0995 


INFL 




BASE 




BASE 


2 




A & B I- IELD L EN 



0996 




Mpy «*WRI<! 




X*WRK2 




x*wrk3 


0997 




MVN 2 7BASE 




ST0RE3 






0998 




IMC 2 7BASE 


2 


ST0RE3 






0999 




MEOLTYPENULL 




SC 




MLAB3 


1000 




MEQLTYPEOMIT 




SC 




MLAB3 


1001 




SUB 2 2ST0RE1 




STORE? 




ST0RE4 


1002 




INC 2 7ST0RE4 




ST0RE3 






1003 




MEQLTYPELABEL 




SJ 




MLAB3 


1004 




ADO 1 21 




NLST0RE3 


5 


BASE 


1005 




INFL 




BASE 


6 




1007 


MLAB3 


MNOP 










1008 




SUB 2 7BASE 


16 


ST0RE3 




1X1 


1009 




GEO MPCIX) 










1010 




MVN 210ST0RE3 


5 


BASE 


8 


UN 


1011 




INFL BASE 


16 


BASE 


18 




1012 


nr\ i a /mvm a**riw 


4 < 
i 


1 iui#r 






1013 




MEQLTYPEOMIT 




$L 




MLAB4 


1014 




MEQLTYPEOMIT 




SL 




MLAB4 


1015 




SUB 1 21 




NLBASE 


18 


BASE 


1016 




INC 1X1 




1X1 






1017 




MVN 1 1X*WRK3 




UNSG 


i 


iUN 


1018 


MLA84 


MNOP 










1019 




MVN 1616SAVXM 




BASE 


8 


UN 


1020 




MEXT 










1021 


MERMESMERR EDIT PARAMETERS ILLEGAL-MTPLY 


1022 




MEND 










1023* 














1 noa,* 

* %r ■**» t — 














1025* 














1026* 














1027* 














1028* 














1029* 














1030* 














1031* 














1032* 














1033* 
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MULTIPLY 
A LENGTH TO STO 
ADD B LNGTH TO 
BUN IF SCALING 
REQUIRED 
DECIMAL OIFFERE 
SCAL-AOJ PRODUC 
BUN IF NOT ROUN 
6 SET UP INFL FOR 
INFL 

ADJUST IX1*RSLT 

BUN ON RESULT-S 

ZERO IX1>SET IN 

INFL 

unwr DQnmifT Tn 

BUN IF NO SIGN 
HANDLING REQUIR 
14 UNSET 1X1 TO C*FL 
ADJUST 1X1 FOR 
SET C FIELD SIG 

RESTORE 1X1 & I 

MACRO 
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1034* 
















1035* 
















1036* 
















1037* 
















1038 


MACROIVI SA, 


SB, 


SC, SD, 


SE, 


$F, SO, $H, 




1039 




SI, 


SJ, 


SK, SL, 


SM 






1040 


MEQLTYPEOMIT 




SK 




MSTART 




1041 


MEOLTYPENULL 




SK 




MSTART 




1042 


MBUN 


MERMES 












1043 


MSTARTMNOP 














1044 


MVN 


1616BASE 


8 


UNSAVX*1 






SAVE 1X1 & 1X2 


1045 


MVN 


2SB 




BASE 






STORE A LENGTH 


1046 


MVN 


2SE 




BASE 


2 




STORE 8 LENGTH 


1047 


MVN 


2$H 




BASE 


16 






1046 


MVN 


2 2BASE 


16 


UNBASE 


18 


UN 




1049 


MVN 


1 




NLX*WRK2 








1050 


INFL 


BASE 




BASE 








1051 


MVN 


SA 




X*WRK1 








1052 


ADO 


2 2BASE 




BASE 


2 


BASE 4 


SET B/ LENGTH 


1053 


INFL 


BASE 


2 


BASE 


4 






1054 


MVN 


SD 




X*WRK2 








1055 


MEQLTYPEOMIT 




SC 




MLAB1 


FALL THROUGH IF 


1056 


MEQL 


TYPENULL 




SC 




MLABi 


PRESENT 


1057 


INC 


2SC 




BASE 


4 






1058 


INC 


2SI 




BASE 


4 






1059 


DEC 


2SF 




BASE 


4 






1060 


MEQLTYPELABEL 




SJ 




MLABl 


BUN ON J PRESEN 


1061 


INC 


1 21 




NLBASE 


4 






1062 


MLA81 MEOLTYPENULL 




SL 




MLAB2 


BUN TO MLAB2 IF 


1063 


MEQLTYPEOMIT 




SL 




MLAB2 


PARAM NOT PRESE 


1064 


MVN 


1 1C 




NLX*WRK1 




UN 




1065 


MVN 


1 1C 




NLX*WRK2 




UN 




1066 


MPY 


5 200002 




NLBASE 




1X1 




1067 


DEC 


1 2 




NLIX1 








1068 


SDE 16 1X*Z-B 




SA 


1 






1069 


GTR 


* 


26 










1070 


MVN 


I ID 




NLX*WRK1 




UN 
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ion 




MPY 5 


200002 




*v u o « o c 




1X1 




1072 




DEC 1 


2 




NLIX1 








ion 




SDE 16 


1X*Z-B 




so 


1 






10M 




GTR 


* 


26 










10^5 




MVN 1 


ID 




NLX*WRK2 




UN 




1076 


MLA82 


MNUP 














1077 




INFL 


BASE 




RASE 


4 






1078 




DIV 


X*WRK1 




X*WRK2 




X*WRK3 




1079 




SUB 2 


2BASE 




BASE 


4 


BASE 


2 GET SIZE OF RES 


1080 




MEQLTYPELABEL 




SJ 




MLAB3 


BUN IF T PARAM 


1081 




INFL 






BASE 


2 






1082 




INC 1 


5 




NLX*WRK3 


1 


UN 




1083 




DEC 1 


21 




NLBASE 


2 




SIZE OF RESULT 


108a 


MLAB3 


MNUP 














1085 




MVN 2 


7BASE 


2 


1X1 






SIZ RSLT TO IX 


1086 




DEC 2 


7BASE 


16 


IXi 






nrA TV1 UV r _ C T 


1087 




GEQ 


DV(IX) 












1088 




MVN 210BASE 


? 


BASE 


8 




C-SIZ TO \7-\Hr 


1089 




INFL 


BASE 


16 


BASE 


18 






1090 


i)VUX)MVN 


X**RK3 


11UNSG 






MOVE QUOUENT T 


1091 




MEOLTYPENULL 




SL 




MLAB4 


BUN IF SIGN HAN 


1092 




MEQLTYPEQMIT 




SL 




MLAB4 


NOT REQUIRED 


1093 




SU8 1 


21 




NLBASE 


16 


BASE 


14 UNC-LENGTH TO IXI 


1094 




INC 


IXi 




1X1 








1095 




MVN 1 


1X*WRK3 




UNSG 




1UN 


TFR SIGN 


1096 


MLAB4 


\ MEQLTYPEOMIT 




$M 




MLAB5 


BUN IF NO REMAI 


1097 




MEOLTYPENULL 




$M 




MLA85 


REQUIRED 


■ « r\ rl 




T ktrl 
1 IT L. 


n*tr 












1099 




MVN 


X*WRK2 


11UNSM 






RETURN REMAINDE 


• 4 ft A 

1 1 vv 


kit ft UQ WfVT 
r* u r% w -# n »„ f\ % 














1101 


MERMESMEHR 


EDIT PARAMETERS ILLEGAL ? D IV IDE 


it A r n r\ 
i*l K w n u 


1102 




MEND 














1103* 


















1104* 


















1105* 


















1106* 


















1107* 
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1108* 










1109* 










1110* 










1111* 










1112* 










1113* 










1114* 










1115* 










1116* 










1117* 










1118 




MACRL00P$A,JB*$C 






1119 




MEQLTYPEOMIT 


SB 


MLAB1 


1120 




MEQLTYPENULL 


SB 


MLAB1 


1121 




MVA SB 


LP(IX) 




1122 


MLAB1 


MEQLTYPEOMIT 


$C 


MLAB2 


1123 




MEQLTYPENULL 


SC 


MLAB2 


1124 




MVA SC 


LP(IX) 




1125 


MLAB2 


MNOP 






1126 




DEC 1 1 


NLLP(IX) 




1127 




GTR SA 






1128 




BUN * +12 






1129 


LPUXKNST 04UN 






1130 




MEXT 






1131 




MEND 






1132* 










1133* 










1134* 










1135* 










1136* 










1137* 










1138* 










1139* 










1140* 










1141* 










1142* 










1143* 










1144* 
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1145* 










1146* 










1147 




MACRCOMPSA'IB'SC* 


i$D#$E 




1148 




CPA SA 


SB 




1149 




MEQLTYPEOMIT 


tc 


MLAB1 


U50 




MEQLTYPENULL 


$C 


MLAB1 


1151 




LSS SC 






1152 


MLAB1 


MEQLTYPEOMIT 


to 


MLAB2 


1153 




MEQLTYPENULL 


$D 


MLAB2 


1154 




EQL $0 






1155 


MLA82 


MEQLTYPEOMIT 


SE 


MLAB3 


1156 




MEQLTYPENULL 


$E 


MLAB3 


1157 




GTR $E 






1158 


MLAB3 


MEXT 






1159 




MEND 
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till 2-I2-II2!!! £2 D I LISTING, 

NOTE FOLLOWING IS A LISTING OF AUTOCODER OP-CODES, EQUIVALENT SPS OP' 
COOES* AND B3500 SYMBOLIC OP-COOES PRODUCED BY THE TRANSLATOR, 

AUTO SPS B3500 REMARKS 



A A ADD 

NTR ADDITION PERFORMED BY SUBROUTINE 

CNST 6 DIGITS A-SIZE B-SIZE 

ACON A ADDRESS 

ACON B ADDRESS 

S S SUBTRACT 

NTR STRUCTURE SAME AS ADD 

ZA ZA ZERO ANS ADD 

NTR STRUCTURE SAME AS ADD 

ZS ZS ZERO AND SUBTRACT 

NTR STRUCTURE SAME AS ADD 

D D DIVIDE 

NTR STRUCTURE SAME AS ADD 

M M MULTIPLY 

NTR STRUCTURE SAME AS ADD 

MBC MCW* MOVE AND 8INARY CODE 

* - D CHARACTER MUST BE CODED 
THIS INSTRUCTION NOT TRANSLATED 

MOD MCW* SEE MBC ABOVE 

SEE MBC ABOVE 



I*!VI 



MCS 



MLC 



MCH 
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MCE MOVE CHARACTERS AND EDIT 

NTR EDIT COMMANDS EXECUTED BY SUBROUTINE 

CNST 4 DIGITS SIZE OF A AND B FIELDS 

ACON A ADDRESS 

ACON B ADDRESS 

MCS MOVE CHARACTERS AND SUPPRESS ZEROS 

NTR STRUCTURE SAME AS MCE 



Miz MIZ MOVE AND INSERT ZEROS 

NOT TRANSLATED SPECIAL FEATURE USED ONLY 
IN CONNECTION WITH 7070 COMPRESSED TAPE 



M CW MOVE CHARACTERS TO A & 8 WORD MARK 

MV A MOVES > 100 CHARACTERS ARE DONE BY SUBROUTINE 



MLCWA LCA LOAD CHARACTERS TO A WORD MARK 

MVA SAME AS MCW 
LCA 

MLNS MN MOVE NUMERICAL 
MVN 

MN 

MLZS MZ MOVE ZONE. 
MVN 

M7 

MRGM mcm MOVE CHARACTERS TO RECORD OR GROUP MARK 

.,,„ „m,rc T n Dtrnon mirk nnWF RY SIlBKniJT I NE 

MCM ACON START OF A 

ACON START OF B 

MRCWG P SAME FORMAT AS MCM 

NTR SAME FORMAT AS MCM 
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BRANCH 
BUN 



NOTEl 



BAV B** 



IF BRANCH IS TO AN "SBR" INSTRUCTION WHICH STORES 
A RETURN POINT INTO EITHER A BRANCH TO ABSOLUTE 
ZERO OR AN INDEX REGISTER A MOVE IS GENERATED 
BEFORE THE BRANCH TO EFFECT THE LINKAGE. 

BRANCH ON ARIGHMETIC OVERFLOW 
MVN ** ALL BRANCH D CHARACTERS MUST BE CODED 
NEQ THE MOVE WILL SET THE SIMULATED OVERFLOW TO 
ZERO(OFF) AS WELL AS SETTING COMPARISON 
INDICATOR TO EQL IF IT WAS PREVIOUSLY OFF, 

B8E BBE BRANCH IF BIT EQUAL 

BOT 
EQL 

BCE B ** BRANCH IF CHARACTER EQUAL 

NTR SUBROUTINE SIMULATES 1400 COMP INDICATOR 

CNST D CHARACTER 

ACON BRANCH TO (A ADDRESS) 

ACON LOCATION TO BE COMPARED (B ADDRESS) 



BCV B** 



BRANCH ON CARRIAGE OVERFLOW 
MVN SAME CONVENTION AS ARITHMETIC OVERFLOW 



NEQ 



BC9 B** 



BE B** 



BRANCH ON CARRIAGE CHANNEL 9 

NOT TRANSLATED - BRANCH CHANNEL 9 

BRANCH ON EQUAL COMARE 



BOT 
EQL 



BEF B ** BRANCH ON EOF OR EOR 
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.rs-r .niuciirrn - uuCT nf" TwrilinFD AS 

nUI inHTJI.niuu nu»i ** — ..i-~w 

ACTION LABEL IN HEAD OR WRITE 



BER B ** BRANCH ON TAPE TRANSMISSION ERROR 

NOT TRANSLATED - SAME AS BEF ABOVE 



BH g** BRANCH ON HIGH COMPARE 

BOT 
EQL 

BIN B** BRANCH ON INDICATOR 

NOT TRANSLATED - BRANCH IF INDICATOR 

COVERS SEVERAL ERROR 

CONDITIONS* FOR THE MOST 

PART THESE FUNCTIONS ARE 

HANDLED BY THE MCP OR 

IOC AND ARE NOT NEEDED 



BL B** BRANCH ON LOW COMPARE 

BOT 
EQL 



BLC B** BRANCH ON LAST CARD 

BOT THE CARD READ INSTRUCTION IS 
EQL DONE BY A SUBROUTINE WHICH SETS 
THE INDICATOR TESTED 



BLC2 B** BRANCH ON LAST CARD 14*0 

NOT TRANSLATED - BRANCH LAST CARD 
on BiranrH Kin. 9 * 1440 ONLY 

BM BMZ BRANCH IF WORD WORK AND OR ZONE 

SDE 
LEQ 

BPB B** BRANCH ON PRINTER BUSY 

NOT TRANSLATED - SAME AS BIN 
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BSS B** BRANCH IF SENSE SWITCH ON 

BOT 
EQL 

BU B** BRANCH ON UNEQUAL COMPARE 

BOT 
NEQ 

BW BWZ BRANCH ON WORD MARK 

BOT 
EQL 

BWZ BWZ BRANCH UN WORD MARK OR ZONE 

BOT THE B3500 CODE SHOWN IS THE MAXIMUM 
EQL FOR A BRANCH ON WORD MARK OR ZONE 
SDE COMBINATION, IF BRANCH ON WORD MARK 
LEQ ONLY THE BOT, EQL IS THE CODE. FOR 

BRANCH ON ZONE ONLY SDE»EQL IS PROVIDED 

C C COMPARE 

NTR EXECUTED BY SUBROUTINE 

CNST 4 DIGITS SIZE OF A AND B 

ACON A ADDRESS 

ACON B ADDRESS 

CC CC CONTROL CARRIAGE 

MVN IF CARRIAGE CONTROL ACTION IS IMMEDIATE 
°R THE NTR CODE IS GENERATED TO A SUBROUTINE 

NTR WHICH SKIPS OR SPACES ACCORDING TO THE 
CNST PARAMETERS PASSED, IF ACTION IS DELAYED* 

SKIP AND SPACE INFORMATION IS MOVED TO THE 
PRINT SUBROUTINE TO CONTROL ACTION ON THE 
NEXT WRITE COMMAND, BOTH SUBROUTINES 
SIMULATE END OF PAGE CCHANNEL 12). 

CCB CC CARRIAGE CONTROL AND BRANCH 

BUN CODE AS ABOVE BEFORE BUN 
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CS CS CLEAR STORAGE 

MVA THE BRANCH IS INCLUDED ONLY IF THE 
BUN BRANCH OPTION IS SPECIFIED IN THE 
INSTRUCTION 

CW CW CLEAR WORD MARK 

MVN THE MOVE IS GENERATED ONLY IF THE 
CLEAR WORD MARK AFFECTS A SWITCH, 
OTHERWISE IT IS NOT NEEDED 

SW SW SET WORD MARK 

MVN SAME AS CLEAR WORD MARK 

NOP NOP NO OPERATION 

NOP 

SAK SAR STORE A-ADDRESS REGISTER 

NOT TRANSLATED 

SBR SBR STORE B-ADDRESS REGISTER 

**** SBR INSTRUCTIONS ARE TRANSLATED 

IN VARIOUS WAYS. IF SINGLE ADDRESS* IT IS 
NOT TRANSLATED, AND NOT NEEDED FOR LINKAGE 
SINCE LINKAGE IS ACCOMPLISHED IN ANOTHER WAY. 
IF TWO ADDRESS IT MAY BECOME EITHER A MOVE 
OF AN ADDRESS OR AN INC OR ADD TO AN INDEX 
REGISTER. 

SS SS SELECT STACKER 

THE STACKER SELECT PORTION OF THE COMMAND 
SELECT STACKER AND BRANCH 
BUN IS NOT TRANSLATED. THIS WILL HAVE NO 

EFFECT ON THE PROGRAM BUT ONLY IN OFF LINE 
MEDIA HANDLING 

TR T NOT TRANSLATED 
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TRW 



MU MU MOVE UNIT 

**** TRANSLATION OEPENOS ON 1-0 TYPE 

LU LU LOAD UNIT 

**** TRANSLATION DEPENDS ON 1-0 TYPE 

CU CU CONTROL UNIT 

**** TRANSLATION DEPENDS ON 1-0 TYPE 

R R READ A CARO 

NTR IF BRANCH OPTION A BRANCH IS SUPPLIED 

RCB R READ COLUMN BINARY 

NOT TRANSLATED - READ COLUMN BINARY 

P P PUNCH 

WRIT SEE READ 

PCB P PUNCH COLUMN BINARY 

NOT TRANSLATED - PUNCH COLUMN BINARY 

W W WRITE A LINE 

WRIT SEE READ 

WM W WRITE WORD MARKS 



WR WR WRITE AND READ 

WRIT WRITE-READ 
NTR 

RP RP REAO AND PUNCH 

NTR READ-PUNCH 

WRIT 
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RF P READ PUNCH FEED 

NTR READ PUNCH FLED 

WP WP WRITE AND PUNCH 

WRIT WRITE-PUNCH 
WRIT 

WRF WP WRITE AND READ PUNCH FEED 

WRIT WRITE AND READ PUNCH FEED 
NTR 

WRP WRP WRITE* READ, AND PUNCH 

WRIT WRITE-READ-PUNCH 
NTR 
WRIT 

SRF SRF START READ FEED 

NOT TRANSLATED - NOT NEEDED 

SPF SPF START PUNCH FEED 

THIS WILL SET A CARD IN MOTION 



BSP CU BACKSPACE TAPE 

NOT TRANSLATED - THE PRIMARY USE OF 

THIS INSTRUCTION IS IN TAPE ERROR ROUTINES 

RT MU READ TAPE 

MVA THE MOVE IS TO ANOTHER BUFFER SET UP 
READ BY THE TRANSLATOR. THIS RELIEVES THE 

MOD 4 REQUIREMENT WITHIN THE TRANSLATED AREA 
AS WELL AS PROVIDING BUFFERED I-U 

RTB MU READ TAPE BINARY 

MVA BINARY IS SPECIFIED IN DECLARATION 

READ ALSO SEE RT 



RTW LU READ TAPE WITH WORD MARKS 

MVA LOAD MODE TAPES MUST BE CONVERTED 
READ ALSO SEE RT 



RWU 



cu 



CLOS 



CONTROL UNIT 
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RWD 



CU 



CLOS 



REWIND TAPE 
CLOSE WITH LOCK 



SKP 



CU 



SKIP AND BLANK TAPE 

NOT TRANSLATED - USED FOR ERROR 



WT 



MU 



MVA 
WRIT 



WRITE TAPE 
SEE READ TAPE 



WTB 



MU 



MVA 
WRIT 



WRITE TAPE BINARY 
SEE READ TAPE BINARY 



WTM CU WRITE TAPE MARK 

CLOS CLOSE REEL 
WTW LU WRITE TAPE WITH WORD MARKS 



MVA 
WRIT 



SEE READ WITH WORD MARKS 



DISK 



ALL DISK COMMANDS TO BE DEFINED 
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